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° a 1 ~bep- 1382 9: $8; 749 SMGRTL.SR REISMEINPUT 83 B32;1 
MODULE SMGSINPUT per 


BTITUs. psseen Management Facility Inpu us Procedures. 
File: SMGINPUT.B52 Edit: STAN2017 


Ooo 
COO 


—OODNOAOMUE WN O ODNAUESWUN OC OONOAUE WN" OOONOUE Wn 


( 
IDENT 
) s 
BEGIN 


leutnunenstenenarentennentennereeeereerererertnrtentnntnntententrentnnrettns 
'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE i$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
1 > a NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


® 
® 
® 
® 
® 
e 
we 
* 
i R ‘ 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY © 
is TRANSFERRED. , 
! % 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
® 
*® 
® 
a 
x 
& 
* 
* 


'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Hd CORPORATION. 


is DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


Lee REAR ERE REE EEE EEE EEE AAA 
' 


lee 
! FACILITY: Screen Management Facility 
i ABSTRACT: 


This module contains the portions of the VAX-11 Run-Time Library 
Screen Management Facility which deal with input. 


1 
| 
' 
! 
' 
' 
1 
! 
ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 10-Feb-1983 
MODIFIED BY: 

a o - - 

| 1 $0): Origina SBL 10-Feb-1983 

1 

! 

i] 

' 

4 

‘ 

' 

' 

4 

1 

1 
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OOOCoCooooooo°oo 
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! 1- Add tne code to allow READ_STRING to work on a V3.n oyete, 


004 Fix READ_COMPOSED_LINE so that the equivalence string of the final 
004 & is remembered by the segeine) ver for line-recall. Use 
048 a <CR> as a nS a f none is specified. 
049 SBL 18-May-1 


i 1-003 - Remember TLOCK* ed states across multiple reads. Do “‘right’’t ging 
! with *Z, undefined sere om the middle of Lines. SBL 23-Jun-1983 
' 1-004 - rovers eet sted in OMPO +4 LINE unless there is 

0 ech 


; hin SBL ul- 
! p-003 - aoa ty GSEREATE _VIRTUAL_ KEYBOARD and SMGSREAD_STRING t 
— ace with screen Bgnigenent output. mul 1G n-198 
p- 00% - More modifications for integration. PLL 21-Jun-1 
-005 - SMGSSSET "PHYSICAL CURSOR now takes a longword buffer Length, 


NOME WN 0 OD NO UE WIN 0 OONOAME WIN — O OONOUESWN — O OONOUS WINS OOONOUS wh 
a dd od od dd I IOOOO 
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Soooooooo 


SOooooooo 


H 1 
ea$ep-198¢ 19:09:69 ESMGRTL eSRESSMGINPUT 1659; 1 ae 
8 


| 
| 
; | 
| 


ereeprut Screen Management Facility Input Procedures ! 
; 9 


3 28 28 : | instead of word. PLL 28-Jun-1 

; 1 ! p=006 = Fix a couple bugs in SRGSREAD STRING. PLL ponsynn tees 

; 60 60 1! 1. Use default rendition fof virtual display for prompt/input. 

5 - 4} 0 1! 2. If at the boundary of the virtual display, then there is no 

3 og § 2 room for input - s3ug an orrgr 

ae 1 | 2-001 - Combined Steve 34 ts 1-003 and 1-004 with Pam's edits 

; ee ¢ ! 1o3e atoreu B -006 and added some stuff of my own. | 
3 . _ u oad . | 
3 ¢ $ 3 5-006 - FINISHED INPUT/OUTPUT INTEGRATION. STAN 3-Aug-1983. 

c— © 1! e- - Bug fixes to SMGSREAD_STRING for terminators and modifier 

; «668 p08 1! masks. PLL —- 9 

; +4 $8 1 ! 2-004 = Another attempt to get 3a Soe t rere recognized. Also, pass the 

3 0 y 1} terminator to the smg$ outeyt rout ngs = the terminator may affect 
a O77 1! the cursor position. PLL 6-Aug-198 

3 ie: Ors } 2-005 - pr, BREAD. TRING, don't report the change if NOECHO was requested. 
3 ! -Aug- 

: 74 0074 1! $-00 - Fix Last edit. PLL 22-Aug-1983 

; 075 1 ! 2-007 = In SMGSREAD_STRING, don't report the terminator if TRMNOECHO was 

; £6 pore 1! requested. PLL 9-Sep-1983 

.- vr 0077 1 | 2-008 - Another fix to SMGSREAD_STRING: if a partial escape sequence 

; 0078 1! terminated the read, do single character Q10s till we find the end 

; 79 0079 1! of the terminator. (This prevents keypad keys from echoing on the 

; 0 0080 1! screen.) PLL 1 “pepe! 

3 1 0081 1! 5-008 = Cleanup SMGSREAD_COMPOSED LINE. PLL 5-Oct-1983 

; 8 8 ¢ 1 ! 2-010 = GIVE ERROR if try to input to a batched display. STAN 14-Mar-1984. 

g § 083 1! Fix Length st buffers for renditions. 

; B4 0084 1! Make renditions work. 

2 0085 1! Change echo of CTRL/Z to track terminal driver change. 

; Bo88 1! mit - Return terminator code of SMGSK_TRM_TIMEOUT on timeout. STAN 

3.6 CS? 0087 1 ! 2-012 = Turn off renditions ony if DCB was passed. STAN 28-MAR-1984. 

; #8 0088 1 ! 2-013 - Add the codes for F1i-F20 function per and editing keys to the code 
; 89 0089 1 / that checks for partial escapes. Ph éApr= | 84 

s 9 Beat 1 ! 2-014 = Validate number of arguments. STAN 3-Jun-1984. 

; 91 091 1! Add Fi-F20 code for READ COMPOSE LINE. 

“ . S454 1! $-913 - Take CTRL/Z echo from system logical TTYSEXIT_STRING. STAN 7-Jul-1984. 
oe 0095 1 ! 2-016 - Fix to partial escape handling - after we find the end of the 

5 0094 1! terminator, fix the return_status to be success. ett 9-Jul-1984 

; 095 1 | 2-017 = Remove call to TRNLNM on V3 systems. STAN 24-Jul-1984, 

; 38 64) ! Remove informational errors. 
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Screen Management Facility Input Procedures 
Declarations 


SBTTL ‘Declarations’ 
| PROLOGUE FILE: 


REQUIRE 'RTLIN:SMGPROLOG'; 
' 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
SMGSCREATE_VIRTUAL_KEYBOARD, 

SMGSDELETE VIRTUAL KEYBOARD.” 

SMGSREAD_STRING 

SMGSREAD~ COMPOSED LINE, 

SMGSSET_REYPAD MODE, 

SMGSCANTEL_INPOT 

SMGS$SET_ PROMPT STRING 

SMGSSDELETE PROMPT STRING: NOVALUE, 

SMGS$INIT_ QUEUE 

SMGSS$CLEANUP: SMGSS$CLEANUPSLNK, 

SMGS$INPUT_EXIT_HANDLER: NOVALUE; 


! 

MACROS: 
NONE 
i 

i 


oO WOOO OO OOO BDWOOWDODMOMMMOOOODO 


EQUATED SYMBOLS: 
LITERAL 
K_QPS_SIZE = 90; 


1 
i FIELDS: 

: NONE 
OWN STORAGE: 


1+ 


PIPSPOPIPIPIPIPINIPOPINININPINPINPININPININNNY 2 2 SS SS SO 


N33 3 OOOO OOCOOOCOCW!W 


WN 
KQB_QUEUE: VOLATILE 
QPS"QUEUE: VOLATILE 
V_Q0EUE_INIT: VOLAT 


'¢ 


ee ee ee ee me me ee ee ee ee ee ee ed ed ed dd = Sd od dd 
So 


eee ep we ieieloielolelelelelelelolelelelolelelelelolelaleloia) 
=DOOWNOU EWN 0 OONOAU EWN 2 O OONOU EWN $0 OONAUES WN OOONOUE WW WIN SO 
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Queues of control blocks and prompt strings. 


! Size of prompt strings on QPS_ 
' 80 character bytes + possibly 
! set cursor sequence. 


Screen management definitions 


Create a virtual keyboard 
Delete a virtual keyboard 
Read a string 

Read a composed Line 

Set mode of numeric keypad 
Cancel anerenered input 
Create a prompt string 
Delete a prompt string 
Initialize queues 

Cleanup from error or close 
Exit handler for input 


oo 
Cc 
—m 


' Keyboard Queue Block 
' Queuved Prompt Strings 


; ! 1 if queues have been initistized 


Declare strings which set the keypad into and out of applications mode. 


AX-11 Bliss-32 V4.0-74 
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1 Blis 
SMGRTL.SRCJSMGINPUT.B32;1 (2). 


: ! Se 
BYTE] PSE 
. ! Se 

SE 


= 
Wm 
OONO 


OWN 
T_KPDAPP DEC CRT 

VECTOR 
T_KPDNUM DECCRT: ! 
VECTOR C2, BYTE) P 


PAA 


SSELF $ 
BNAUS WN $0 ODNAU EWN O ODN OUES WN HO OONAUE WN Oo 


' 
i 
EXTERNAL DECLARATIONS: 


EXTERNAL ROUTINE 


‘ locate local event flag number 
IBSGET_9M, i A 
! p 
Y 


l 
ree local event flag number 
Llocate virtual memory 
VA, eallocate mire genery 
LIBSANALYZE_SDESC_R2: LIBSANALYZE_SDESC_R2SLINKAGE, ! Analyze string desc 


LIB$SCOPY_R-D ! Copy string 
LIBSSCOPY-R~DXé6: LIBSSCOPY_R DX6SLINKAGE, _! Copy string 


] 

! 

| 

| 

} 

| 
LIBSFREE 
SMGSSTERM TO_KEYCODE T Translate terminator to keycode 
| 

| 

| 

| 

| 

| 


. & 
SMGS$$GET_PASTEBOARD ID H SMG$ 1/0 interface routine 


SMGSSREPORT_CHANGE_REPLACE, | 
T ! Qutput directly to terminal 
ET_ATTRIBUTES_ON ' Set attributes on 
SMGSSSET-ATTRIBUTES_OFF, | Set attributes off 
SYS$Q10W; ! $Q10W system service 


C009 09090909 NI NIN SIN NINN NI SIO OO 


EXTERNAL LITERAL 
SMG$_STRTERESC, : bering terminated by escape 

! End-of-file 

! File-specification is too long (over 255 characters) 

! Operation not permitted while display is batched 

! Invalid maximum Length (greater than 512 characters) 

! Invalid state name 

! Prompt string is too long 

! Invalid column 

! Invalid display id 


SMG$_INVSTANAM, 
SMG$~PROTOOLON, 
SMG$_INVCOL, 

SMG$~INVDIS_ID; 


EXTERNAL 
LIBSAB_UPCASE; ! Upcase translate table 


Be Se Se Se Ge Se Se Be Se Be Se Se Se Oe Se Se Oe Be Se Se Se Se Se Se Oe Se Se Se Oe Se Se Se Se SH Se Se ee ee Se ee SESH es 
ee ee ee me ee ee em ee ce DD a eed ed oe 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
SMGSS$LOOKOP_REY: SMG$S$LOOKUP_KEYSLNK, ookup item in tree 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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4 
0 


oe 


ZSBTTL ‘SMGSCREATE_VIRTUAL OARD' 

GLOBAL ROUTINE REATE AL “get ( 
KEY vECTO ONG), 

Sis 

: REF 
EC: R 


c@ 


E 
K (, BYTE) 
OCKC, BYTE) 


“Dm w<) 


E 


This procedure creates the association between a filespec (terminal 
name or RMS file) and a virtual-keyboard-identifier. The maynoare. oe 
is passed to other screen management procedures to uniquely identify 
the input stream being acted upon. 

If ‘“filespec’’ does not refer to a terminal, the file is opened ysing 
RMS and all further access to that file is performed through RMS. f 
““filespec’ is a terminal, a channel is assigned to the terminal, its 
keypad is set to ‘‘application mode’ (if supported). and Line editing 
is enabled. These attributes are restored to their prevceus values 
when the virtual-keyboard is deleted, either by a call to 
SMGSDELETE_VIRTUAL_KEYBOARD or automatically when 


CALLING SEQUENCE: 
RET_STATUS.wlc.v = SMGSCREATE_VIRTUAL_KEYBOARD ( 
KEYBOA 


the image exits. 


RD-1D.wl.r 
° LESPEC.rt.dx] 
» COEFAULT_FILESPEC.rt.dx] 
, CRESULTANT_FILESPEC.wt.dxJ JJJ) 


i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
1 
; 
FORMAL PARAMETERS: 

: KEYBOARD~ID A longword into which will be written the 
virtual-keyboard-id of the created virtual-keyboard. 
' 
i 
i 
i 
i 
i 
i 
i 
1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


FILESPEC A string containing the file specification of the 
file or terminal to be used for this virtual-keyboard. 
If omitted, "SYSSINPUT:' is used. 


DEFAULT_FILESPEC A string containing the default file specification. 
If omitted, the null string is used. 


RESULTANT_FILESPEC A ptring jate which is written the expanded or 


} | 

1 

1 

1 

1 

1 

1 

1 

1 'e¢ 

} FUNCTIONAL DESCRIPTION: 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

| 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

: resultant le specification of the file used. 

: IMPLICIT INPUTS: 

: NONE 

' IMPLICIT OUTPUTS: 

1 NONE 

| 

1 

1 | 
| 


COMPLETION STATUS: 


! Verify assumption that a RAB is not longer than the positive-offset 
} portion of a Keyboard Control Block. 


SASSUME (RABSC_BLN, LEQU, KCB_S_KCB_STRUCT - KCB_K_ORIGIN_OFFSET); 


'¢ 
Initialize FAB, NAM and XAB. 


1 

MGSINPUT Screen Management Facility Input Procedures 18-se -1984 7:43:07 AX-11 Bliss-32 V4.0-74 
smote SMGSCREATE_ TRTUAL KEYBOARD 4 1 Hae 1 90:68:05 SMGRTL. RCISMGINPUT .B3 31 
: 7 1! $S$_NORMAL Normal successful completion 
3 54 g 1; SMGS_F ILTOOLON Fi Le-spec ification 1s’ too long (over 255 characters) 
; 4 1! SMG$_WRONUMARG yrene number of arguments 
; 260 PS LIBS_INSE Insufficient eyent flags 
; 261 § 1} LIBS_INSVIRMEM Insufficient virtual memory 
3 66 1! LIBS_INVSTRDES Invalid string descriptor 
>; 26 5s i} RMS$_xyz Any error possible from $OPEN or SCONNECT 
: oe iB : } SS$_xyz Any error possible from SGETDVIW, SASSIGN or $DCLEXH 
; 66 9 41 ! SIDE EFFECTS: 
: o8 6 rk 1 / Opens file mor RMS or assigns a channel to it. 
; 44 1! Declares an exit handler 
; £9 Q rf : Sets terminal to keypad application mode. 
: rg 0347 1 i-- 
ear 0348 1 
ee. we pe 
: 276 0351 CAL 
Te i Be26 KCB: REF KCB_R_KCB_STRUCT, ! Keyboard Control Block 
; 278 035 FAB: $FAB_DECL? ' RMS File Attributes Block 
: t44 0354 NAM: SNAM_DECL, ' RMS NAM block 
; 280 0355 KAB_FHC: SXABFHC_DECL ! File Header Char. XAB 
; Bt ogo RESOLTANT_STRING: VECTOR CNAMSC_MAXRSS, BYTE]; ! Resultant name string 
: $83 0358 BUILTIN 
; 6284 0359 CALLG, 
: +H 8300 NULLPARAME TER; 
; $B ite sae ls f t iti 
5 ! erals for argument po ns. 
: 589 0364 le ° nen ig: 
: 290 0365 
3 $3) 0366 LITERAL 
3 3 0367 K_KEYBOARD_ID = 1, 
; 29 0368 K"FILESPEC™= 
> 29% 0369 K"DEFAULT FILESPEC = 3, 
: $32 O59 K-RESULTART_FILESPEC = 4; 
3 237 0372 SSMGSVALIDATE_ARGCOUNT (1,4); 
: 299 0 rh t+ 
; ‘ 
; 7 
3 8 
3 9 


WAAIAIAI AAAI 
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~v 
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5 $FAB_INIT (FAB=FAB, NAM=NAM, XAB=XAB_FHC); 

6 SNAM~INIT (NAM= ESA=RESULTANT STRING, ESS=NAMSC_MAXRSS, 
SA=RESULTANT_STRING, RSS=NAMSC_MAXRSS) ; 

8 SXABFHC_INIT (XAB=XAB_FHC); 
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361 } SMGSCREATE_VIRTUAL “REYBOARD 4 122888 Sep 71382 9: 09:49 SMGRTL.SRCJSMGINPUT. 83 31 * a 

: 316 9 ; 
3 315 $0 g '+ 3 
3 18 $e } Get the file specification. : 
3 fh 9 
3 i8 94 IF NOT NULLPARAMETER (K_FILESPEC) ! FILESPEC present? P4 
; 0 95 THEN ; 
; 1 39 BEGIN F 
3 f 9 CAL : 
; 0398 STRIN GP ! Pointer to string ; 
3 4 99 STRING LEN: WORD, ' Length of s Hy F 
; 5 rth ANL_STATUS; i Status By (iB ANALYZE _SDESC_R2 : 
3 § ht ANL_ STATUS = LIBSANALYZE_SDESC_R2 (FILESPEC (0,0,0,0]; FH 
; 28 040 “STRING_LEN STRING_P PTR); ; 
; ¢9 0404 IF NOT ANC S TATUS ; 
3 0 0405 THEN § 
; 31 049 RETURN .ANL_STATUS; y 
3 3 0408 IF .STRING_LEN GTRU 255 : 
s 334 0409 THEN 3 
3 35 0410 pen anes -FILTOOLON; ; 
: 336 0411 Pi ~ »STRING_PTR; ; 
s 337 Brig FABSO” ENS = STRING~ LEN; F 
: 38 041 3 
3 39 0414 ELSE ; 
3 0415 BEGIN 3 
3 0416 $ 
3 ; 0417 3 tee "SYSSINPUT:' 3 
s 0418 3 oe 3 
3 0419 FABSB_FNS] = CHARCOUNT (‘SYSSINPUT:'); : 
; Be ? 3 FAB FABSL— _FNAJ = UPLIT BYTE (‘SYSSINPUT:'); : 
: 04 : ; 
3 04 5 $ '+ 3 
F 0424 ! Get default filespec, if any. 3 
3 be 5 be ; 
; 04 $ IF NOT NULLPARAMETER (K_DEFAULT_FILESPEC) é 
; 428 THEN 3 
; 429 BEGIN 3 
3 0430 AL 3 
; 0431 STRING_PTR, ! Pointer to string 3 
3 4 § STRING_LEN: WORD, ' Length of string F 
: rth ANL STATUS; : Status from LIBSANALYZE_SDESC_R2 : 
FH 435 ANL_STATUS = LIBSANALYZE SDESC _R2 (DEFAULT_FILESPEC (0,0,0,0]; : 
A 4 § “STRING _LEN, STRING_PTR); Is 
: 4 F NOT . ANC _STATUS : 
s a3 RETURN .ANL_STATUS; : 
3 44) IF .STRING_LEN GTRU 255 3 
3 rr THEN : 
; 444 FAB tf ABSL wars ~STRING_PTR; : 
: 445 FAB FABSB™ DNS «STRING LEN: : 


RETURN SMG$_FILTOOLON; 


‘ RETURN .INIT_STATUS; 


'¢ 
Allocate a Keyboard Control Biock 


N 1 
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esi } SHGSCREATE. VIRTUAL. KEYBOARD > 1e-gee=188e P8:G5:85 = FaMGAT Ob heg see Nb O-28s 9° (3) 
71 44 END; 
if 409 
7 44 '¢ 
74 44 i Parse the file specification to see whether or not it is 
75 450 ' @ terminal. 
78 451 in 
7 4 ¢ 
8 te BEGIN 
7 454 LOCAL 
80 455 PARSE _STATUS 
81 4 ‘ PARSE STATUS = US ARSE (FAB = FAB); 
o¢ ri ‘ NOT .PARSE STATUS 
84 0459 RETURN .PARSE_STATUS; 
85 460 D; 
4] 461 
8 rh '¢ 
88 046 i 1 KQB_QUEUE and OPS QUEUE have not yet been initialized, initialize them. 
e ree te SHGSSTNIT QUEUES also declares an exit handler. 
91 046 
9 46 IF NOT .V_QUEUE_INIT 
93 468 THEN 
94 469 BEGIN 
95 0470 LOCAL 
96 0471 INI TUS; 
97 047 os etlros’s SAGSSINIT QUEUES (): 
98 047 IF NOT .INIT_STATUS 
399 
400 
401 
40 
40 
404 
405 
406 i 
407 
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BEGIN 

0g 48 OCAL 
409 0484 VM -POINTER, Sgemy | allocated penery 

410 0485 a Status from LIBSGET 

411 0486 VM_STATUS = <tiescer _VA CERER (KCB. S "KCB STRUCT. ae POINTER); 
3 ot $4 IF~NOT .VM_STATUS 

41 488 

414 489 RETU -VM_STATUS; 

415 490 CHSF ILL 00 “KCB_S_KCB’ STRUCT POINTER) 

416 0491 KCB = .VM_POINTER™+ KCB_K_ORIGIN N OFF FSET; 

41 049 D; 

418 49 

419 494 

420 95 ' dtinsehe a Keyboard Queue Block and put this KCB on the queue 
421 49 ' Note that KQBs are never removed from the queue; they are inactivated 
? ; 13 : hg having the KQB_A_KCB field set to zero. 

424 49 

425 500 BEGIN 

4 § 501 LOCAL 

4 502 KQB: REF KQB_R_KQB_STRUCT, ! Keyboard Queue Block 
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REATE. 


iEostoctge 9:43 


n Management Fee YBOAR Input Procedures :07 
IRTUAL_KEYBOARD 49 
eatin ! Pointer to allocated block 
vA STAT 
BUILTIN 
INSQUE; 
VM_ grave 


S 
If NO T .VM_STA 
- RETURN SAGSSCLEANUP (KCB CKCB_R_KCBJ, .VM_STATUS); 
= XK 
KQB (KQB AKC = .KCB; 


KCB CKCB™A-KQB KQB; 
aye (ROB [kaB__ Q “QUEUE LINK], KQB_QUEUE); 


1+ 
‘ See if this file is a terminal. 


1 
D. 

AB_DEV = FAB CFABSL DEV]: BLOCK (4, BYTE; 
NOT TFAB_DEV [DEVSV_TRM 


KCB CKCB_V_RMS) = ! Not a terminal 


te 


: Now split dpending on whether the file is a terminal or not. 


IF NOT .KCB CKCB_V_RMS) 
THEN 


BEGIN 
c "The file is a terminal. 


=  {osceT VM (ZREF(KQB_S_KQB_STRUCT), KQB_PTR); 


AX-11 Bliss-32 V4 


Assign a channel and use $Q19s. 


DEVNAME_DESCR: BLOCK (8, BYTE], ! Descri r for device name 
ASSIGN_STATUS, Q10_STATUS1, Q10_STATUS §2,° 0_ST ATUS3: 

IND 
KCB_DEVDEPEND1 = KCB FKCB_L_DEVDEPEND : BLOCK (4, BYTE), 
KCB-DEVDEPEND2 = KCB CKCBL~DEVDEPEND2): BLOCK (4; BYTE): 


' Fill in device name descriptor and assign a channel. 


DEVNAME _DESCR [DSC$W_LENGTH] = .NAM CNAMSB_ESLJ; 
DEVNAME—DESCR DSCSB-CLASS = DSCSK ma -$: 
DEVNAME-DESCR [DSC$B~9TYPE) = DSCSK-DTYPE-T 
DEVNAME DESCR CDSCSA-POINTER) = RESOL TANT” “StRING; 
ASSIGN STATUS = SASSIGN ( 
DEQNAM = DE YNARE DESCR, ! Device name descriptor 
CHAN = KCB CKCB_@_CHANNEL)); 


0-74 Pa 9 
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et SHGSCREATE, VIRTUAL. KEYBOARD . 127808 - 1 3be 90: $8549 RNGRTL  SRETSAGINPUY 63951 . 3) 
; 485 60 IF NOT .ASSIGN_STATUS ; 
; 48 61 THEN ; 
: 4 4 36¢ RETURN SMGSSCLEANUP (KCB CKCB_R_KCBJ, .ASSIGN_STATUS); | : 
; 489 b28e '+ : 
; 490 565 ! Allocate an event flag number. ‘ 
; 491 208 !- ; 
; 49 56 : 
; 49 568 4 BEGIN : 
: 494 0569 4 LOCAL : 
; 495 0570 4 EF STATUS; : 
: 49 0971 4 EF_STATUS = LIBSGET_EF (KCB CKCB_L_EFNJ); : 
: 49 te 4 IF"NOT .EF_STATUS : 
; 498 0573 4 THEN H 
; 4699 0574 4 RETURN SMGSSCLEANUP (KCB CKCB_R_KCB], .EF_STATUS); : 
: 500 0575 END; ; 
s $01 0576 3 
; 20 Fae awTit i he Q10 li 
: ‘ n the argument Lists. : 
: 504 0379 ie ° | : 
; 505 0580 : 
; 506 0581 KCB CKCB_L_QI01_ARGCNT] = co K_Q101_ARGCNT; 3 
: 507 b386 KCB CKCB_L_Q101_EFNJ = .KCB CRCB_L_EFNI; ‘ 
: 508 058 KCB CKCB_L_Q101_CHAN) = .KCB CKCB_Q CHANNELJ; : 
; 509 0584 KCB CKCB"L-Q101-FUNC) = IO$_READVBLR + JOSM_ESCAPE; : 
; 510 0585 KCB CKCB_A_Q101_10SB) = KCB CKCB_R ee . . 
; 511 0586 KCB KCB“L~O102"ARGCNT] = KCB K_G1062_ARGCNT; ; 
; al 0587 KCB CKCB_L_Q102_EFN -kcB CRCB : . 
3 31 C588 KCB CKCB_L_Q102-CHAN] = .KCB CKCB_Q CHANNEL]; : 
; 514 0589 KCB CKCB-A~Q102-10SB) = KCB CKCB_R_Toss); | : 
s $15 0590 3 
; 516 0591 3 
3 St7 R206 '+ : 
3; 318 059 ' Get the terminal's current characteristics. 3 
; $19 0594 !- 5 
; 520 0595 3 
; 521 0596 KCB CKCB_L_Q102_FUNC] = I10$ SENSEMODE; ; 
; 256 0597 KCB KCB tO 0e Pid = KCB CRCB_R_TERMCHAR]; 3 
3 $24 F343 KCB CKCB-L~Q102-P2] = KCB_S_TERMCHAR; : 
; 525 0600 QIO_STATUS1 = CALLG (KCB [KCB_R_Q102], SyYS$QlOw); ; 
; 526 9601 IF 7QJO_STATUS1 ; 
: Se? o THE | 3 
; 2 8 960 QIO_STATUS1 = .KCB CKCB_W_IOSB_STATUS); ; 
> 529 04 IF NOT 7Q10_STATUSi | ; 
33 0605 THEN 3 
; 531 0606 RETURN SMGSSCLEANUP (KCB CKCB_R_KCBJ], .Q10_STATUS1); ; 
3 ¢ B98 3 
= > 608 1+ fhe: 3 
; > 0609 ' Save the device-dependent characteristics. : 
RH é pai 
Py | : 
; 537 O62 KCB CKCB_L_OLD_DEVDEPEND1) = .KCB KCB_L_DEVDEPEND1]; ; 
3 $ Ost KCB CKCB_L_OLD_DEVDEPEND2) = .KCB CKCB_L_DEVDEPEND2); : 
; 40 615 '+ i 3 
; 541 0616 ' Indicate if the enter/exit keypad mode sequence is compatible ; 
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HEN 
RETURN SMGSSCLEANUP (KCB CKCB_R_KCB], .CONNECT_STATUS); 
| 
\¢ 
: Store the IFI for a future close. | 
KCB CKCB_W_IFI] = .FAB CFABSW_IFIJ; | 


1+ 
Allocate a buffer that is large enough for the file. 


Sc 
SM 
; 54 17 ' with that for DECCRTs. ; 
; 54 ei fe : 
> 344 61 : 
; 545 620 IF .KCB_DEVDEPEND2 CTT2$ -PECCRTI OR | ; 
; 546 621 (.KCB (KCB_B_DEVTYPEJ-EQL DT “Vian OR ; 
; zee 6 g (.KCB CKCB-B-DEVTYPE] EQL DT$ yt 5) OR : 
; 548 6 4 ((.KCB tS eal # GEQU DT$_LA36) AND ! f vers LA36.120.34,38, ; 
: 849 0624 3 CKCB ExCB-B DEVIYPEI LEQU DTS-LATOO)) OR | oy 54.100 | 
: 550 0625 (.KCB CKCB_B_BEVTYPE) EGL DT$_VR 99) OR ; 
; 533 06 § 4 ewok KCB_B_DEVTYPE) EQL DT$-VvT173) : 
: 0628 KCB CKCB_V_KPDSEQ_DECCRT] = 1; ; 
: 3s osee Feal 
ee 0630 END : 
; 228 poe) ELSE ; 
; 35 06 ; BEGIN : 
; 558 063 1 See ; 
; 559 0634 ' Device is not a terminal. Use RMS. : 
; 560 0635 le ; 
s 361 0636 : 
3 eo6 0637 LOCAL . 
; 56 0638 OPEN_STATUS, CONNECT_STATUS, VM_STATUS; : 
: 564 0639 3 : 
; 565 0640 '+ : 
; 566 0641 ' Open file. : 
s 567 064 !- 3 
; 568 064 ; 
; 569 0644 OPEN_STATUS; . 
; 570 0645 OPEN_STATUS = SOPEN (FAB=FAB); ; 
; 571 0646 IF NOT .OPEN_STATUS : 
s S?fe2 0647 THEN ; 
3 af? Roee RETURN SMGSSCLEANUP (KCB CKCB_R_KCB], .OPEN_STATUS); : 
a. Ore 0650 KCB CRABS$B_BID] = RABSC_BID; . 
3; 576 0651 KCB CRAB$B_BLN) = RABSC_BLN; : 
3; 577 063¢ KCB CRABSL-FAB) = FAB; . 
3; S78 065 ; + 
: 579 0654 '¢ ; 
; 580 0655 ' Connect to the file. : 
; 581 0656 t= : 
3 286 0657 : 
; 58 0658 CONNECT_STATUS = $CONNECT (RAB=KCB CKCB_R_RABJ); 3 
; 584 0659 IF NOT [CONNECT_STATUS : 
; 585 0 : 
: 586 : 
s 3a : 
; 588 : 
; 589 : 
; 590 : 
: 33) ’ 
3; 592 : 
: 593 : 
3 94 ; 
; 595 ‘ 
; 399 ‘ 
; 598 ’ 


KCB CRAB$W_USZ) = .FAB CFABSW_MRSJ; 
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= gi SNGSCREATE. VIRTUAL. KEYBOARD > - eet ra tC Pt Me bg Pata nhs J 
599 674 IF .KCB CRABSW_USZ] EQL 0 
600 675 THEN | 
601 676 BEG! | 
60 67 Chae 4 -FAB_CFABSW_BLSI; 
605 678 IF .XAB_FHC CXABSW_LRL] GTRU -KCB CRABSW_USZJ | 
605 O8 0 “KCB CRABSW_USZ] = .XAB_FHC CXABSW_LRLJ; 
gee 06 ¢ VA_ statis = h 18sec. VM (ZREF(.KCB CRABSW_USZ]), KCB CRABSL_UBFIJ); 
se RR fest! ve state | 
0 be 5 rey SMGSSCLEANUP (KCB CKCB_R_KCB], .VM_STATUS); 
668 + | 
0688 i Set additional values needed in the RAB. 
3 i 
0691 KCB LRABSB_RAC] = RABSC_SEQ; 
069 KCB CRABSV— LOC] = 1; 
069 KCB CRABSV_RAH] = 1; 
0694 
0695 END; 


14 
Store RESULTANT_NAME in KCB and caller's filespec, if desired. 


BEGIN 


BAAN AAAI DIP NININIPINPONYDYD 2 I POO OO Oe 
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Se Se Se Se Se Be Se Be Se Se Ge Se Se Se Se Se Ge Ge Ge Ge Se Ge Ge Fe Ge Ge Fe Se Ge Ge Ge Se Ge Se Se Se Se Ge Se Se Se Se Se Se ee Fe Geese Se ee Se Gee Sete teas 


070 LOCAL 
070 COPY STATUS, 
0704 ° ! Pointer to string 
0705 STRLEN: WORD; ! Length of string 
9708 
070 ‘+ 
ti x Try resultant name string first. 
0710 STRPTR = RESULTANT STRING; 
0711 STRLEN = .NAM CNAMSB_ Lj: 
Brie IF .STRLEN EQL 0 
071 THE 
0714 BEGIN 
0715 
1 o7i8 * "to expanded name string. 
: O78 STRLEN -NAM CNAM$B_ESLJ; 
4 719 IF “STRLEN EQL 0 
5 0720 THE 
646 fi 1 BEGIN 
647 7 ; 
648 8 | “use filename. 
649 724 
650 725 STRPTR = .FAB CFABSL_FNA]; 
651 7 § STRLEN = .FAB FABSB_ FNS): 
636 7 END; 
65 728 END; 
654 729 
655 07350 IF NOT NULLPARAMETER (K_RESULTANT_FILESPEC) 


a oe oo or ee a oe ee 


“" 

ee 
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Bet SMGSCREATE_ IRTUAL_KEYBOARD . 14- ats? 9: 09:49 SMGRTL” SRC SMGINPUT. 635, 71 . ait 
; 6 731 THEN 3 
3; § : 7 4 i BEGIN | : 
; 658 7 4 COPY_STATUS = LIBSSCOPY_R ~bxé (,STRLEN, .STRPTR, 2 
; 659 734 4 RESULTANT_FILESPEC [070,0,03); ; 
; 660 735 4&4 IF NOT .COPY_STATUS ; 
: 661 7 : 4 THEN | ; 
: 66¢ 737 4 RETURN SMGSSCLEANUP (KCB CKCB_R_KCB], .COPY_STATUS); : 
> 66 138 END; | ; 
; 664 ? : 
; 665 740 '+ : 
; 666 0741 i Store the resultant name string in the KCB. It may be used : 
: 667 8508 i Later with output. : 
Py 668 74 ie ° 
; 669 744 4 BEGIN ; 
: 670 745 4 LOCAL : 
: 671 pres 4 bEVNAM DSC Ton t ae ' dsc for name : 
: 67 74 4 DVI_ITALST {e3 + ii INITIAL | item List for SGETDVI ; 
; 67 748 4 (DvI VBEVNAN +64, 0, 0,! result name string : 
; 674 0749 4 0), ! terminater ; 
: 675 9730 4 : 
; 676 0751 4 DVI_I10SB : VECTOR C4, WORD), ' 1/0 Status block for $GETDVI ° 
; 677 0726 4 STATUS ' status retd by called routines ; 
; 678 0753 4 DEV  DEVNAM : VECTOR (64, BYTE], ' Buffer for result name ; 
: 679 0754 4 ' strin 3 
; 680 0755 4 DEV_NAMLEN : VOLATILE WORD; ! Length of returned : 
; «681 b728 4 ' resultant name string : 
: 68 757 & F 
; 68 0758 4 IND : 
; 6684 0759 4 DVI_DEVNAM = DVI_LITMLST + 4, ! make it easy to ref items ‘ 
: 685 0760 4 DVI-NAMLEN = DVI_ITMLST + 8: : : 
: 686 0761 4 3 
; 687 4404 4 DVI_DEVNAM = DEV_DEVNAM; $ 
; 688 076 4 DVI ~NAMLEN = DEV_NAMLEN; : 
3; 689 0764 4 $ 
; 690 0765 4 DEVNAM_DSC COSCSB_DTYPE] = DSCSK_DTYPE_T; ; 
; 691 0766 4 DEVNAM_DSC DSCSB_CLASS = DSCSK_CLASS_S; 3 
; 69 0767 4 DEVNAM_DSC CDSC$W_LENGTH) = .STRCEN; : 
: 695 O768 4 —-DEVNAM_DSC CDSCSA_POINTER] = STRPTR; ! dsc needed for SGETDVI : 
; 695 P 0770 4 STATUS = $GETDVI( EFN = .KCB CKCB_L_EFN) é 
: 696 P 0771 4 10S8 = DVvI_10SB> 6 
: 697 ? O77 4 DEVNAM = DEVRAM DSC ; 
: 698 773 4 ITMLST = DVI_ITALSTS; | : 
b4 9° 0775 2 IF NOT .STATUS THEN RETURN (. STATUS); | : 
: | ° 
: 4 ve ? SWAITFR (EFN = .KCB CKCB_L_EFN]); ! make $GETDVI synchronous | : 
; 70 778 4 be | : 
: 704 779 4 i when the operation completes, the final status : 
: 44 st ? i is left in the first word of the 1/0 status block. | : 
: 707 782 4 : 
: 708 7 § & IF NOT .DVI_IOSB CO) THEN RETURN (.DVI_10SB ([0]); : 
m  wBd ; 
3; 711 7 § 4 KCB CKCB_W_DEVNAM_LENGTHJ= .DEV_NAMLEN; gnath th of device name : 
: 712 0787 4 CHSMOVE T [DEV_NAMLEN, DEV_ DEVNAM, KCB CKCB_ i _DEVAAM STRING); : 


snrseet lila aeinepamneibitintbncioninetihay = 
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~ = 


END; 
ee 


"Brore the check value in the KCB so we can recognize a valid KCB 
the next time we see one. 


KCB CKCB_L_CHECK) = .KCB; 


'¢ 
t Init to no pasteboard. 


KCB CKCB_L_PASTEBOARD_ID] = -1; 


| 
' +e | 
: Set the terminal's keypad to application mode (if not a file). 
| 
| 


WAAR PURO PORonon ] 2 
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t33 - i -KCB CKCB_V_RMSJ 

4 : SMGSSET_KEYPAD_MODE (ZREF(KCB CKCB_R_KCB]), %REF(1)); 

739 081 4 

740 081 i Store the KCB address in the user's argument. 

741 081 in 

74 081 

74 081 KEYBOARD_ID (OJ = KCB CKCB_R_KCB); 

744 081 

Oe oes RETURN SS$_NORMAL; 

747 OBS END; ! End of routine SMGSCREATE_VIRTUAL_KEYBOARD 


-TITLE SMGSINPUT Screen Management Facility Input Proc 
SIDENT \2-017\ “Ours 
-PSECT _SMGS$DATA,NOEXE, PIC,2 
00000 KQB_QUEUE: 
00008 QPS_QUEUE: 
00000000 00010 V_QUEUE_INIT: 
- LONG 


o oe oo 


~PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
1B 00000 T_KPDAPP =BEGERT: 


2 
3D 009 oP tf } 
1B O06 T_KPDNUM_ DECCRT: 


en Management Facilit 
CREATE_VIRTUAL_KEYBOA 


y_ tnot Procedures 


49 24 53 38 
00000000 002000 


WOou1ornoo 
"“OO—Mmoo 


ro 
oo 
mwoowoowW wor oMmMowow°0 


WAF=O OMMMMoS OMMNooo OfOo8—wmmm 
COOOCGCOCOCOOOOOCSOOOOOOOOOOOOOOoOoOOo 


SOOCOOSOOCOOOOOOOOOSOOOOOOOSOOoOOoOSooOO 


=m" VOU CfMnN™m 
NANAIIO OA AANAAE FAWN 2 3 33350 


MMOWNO YS UIT SP NHOOWS OUIMNISOVIMNM OWO OP 


SOOOOCOCOCOCOCOOOCOCSOOOCOOOOOOOOOoCOoOoCoOo 
~ 


PP -SOOMOFOPFODOMOOMMOOw®W 


—9o 00 wMOMDOoOW 


PORNO NS 


07 AX-11 Bliss-32 v4.0-7 
49 SMGRTL.SRCJSMGINPUT.B 

27 

\y INPUT: \ 

sg395iy" 0, 0, 0 

LIBSGET_EF, LIBSFREE_EF 

LIBSGET~ VM LIBSFREE-VM 
LIBSANACYZE_SDESC_R 
LIBSSCOPY_R'DX, LIBSSCOPY_R_DX6 
SMGSSTERM-TO_KEYCODE 
SMGS$S$LOOKOP_REY 
SMG$$GET_PASTEBOARD_I 
SMGS$SET-PHYSICAL_CORSOR 
SMGSS$REPORT_CHANGE 

SMGSSOUT 


SMGSSSET_ATTRIBUT 
SYSSQIOW> SMG$_STRTERESC 
SMGS$_EOF Sncs F 


V . 
SMG$_INVCOL, SMG$_INVDIS_ ID 
t 18$KB UPCASE SHGS_WRONOMARG 


T_CHANGE_REPLACE 
PUT; SMGS$SET_ATTRIBUTES_ON 
ES_OFF 


SMGSCREATE VISTEM -Et Yoon. Save R2,R3,R4,-; 0276 


R . 7 7,RB,R9 e 
LIBSANALYZE_SDESC_R2, R11 
LIBSGET VM, “R10 

-596(SPT, §P 

#i, (AP). DIFF 

DIFF, 3 

#SMGS_WRONUMARG, RO 

#0, (SP), #0, #80, SRMS_PTR 


#20483, SRMS_PTR 
#2, S$RMS_PTR322 

#2. $RMS~PTR+31 

XAB_FHC, $RMS_PTR+36 

NAM; SRMS_PTR? 

#0, (SP),"#0, #96, SRMS_PTR 


#24578. SRMS_PTR 

#1, $RMS_ PTR? 

RESULTANT STRING, SRMS_PTR+4 
#1, $RMS PTR+ 


RESULTANT. STRING SRMS_PTR+12 
#0, (SP),“#0, #44, SRMS_PTR 


#11293, SRMS_PTR 
(AP), #2 
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SINPUT Screen Management Facility Input Procedures 16- Sep-1984 :07 AX-11 Bliss-32 V4. e 
et SMGSCREATE_VIRTUAL "KEYBOARD ‘ 1 ~8ep-1986 90:68 9:49 SMGRTL.SRC SREINPUS 039; :1 a (a8 
| 50 08 AC D 9 MOVL FILES PEC, 3 0402 : 
; 1 D JSB LIB ANAL (ZE “gQeSC. R2 : ; 
gr E F BLBC = ANL_STA + 0404 | ; 
OOFF F 1 81 3 CMPW STRING ATEN’ #255 + 0408 : 
A 0009 BGTRU 4$ : ; 
DC AD p0 99 MOVL § STRING_PTR, FAB+44 + 0411 ; 
£4 AD 90 MOVB STRING. LEN, FAB+52 + 0412 : 
A 11 A BRB 4 + 0394 : 
E4 AD A 90 000A3 28: MOVB #10, FAB+52 + 0419 : 
dC AD FF3B OCF 4: OOA MOVAB P.AAA, FAB+44 + 0420 : 
0 g¢ 91 OOOAD 3$: CMPBs«C AP), «#3 : 0427 ; 
25 (1F 008 BLSSU $$ : : 
Oc AC D3 B TSTL g (AP) : ; 
20 13 0008 BEQL «= 6 : : 
50 0c AC 00 0008 MOVL §DEFAULT_FILESPEC, RO : 0435 ; 
B if 0088 JSB LIBSANATYZE_ DESC_R2 : : 
41 0 €9 000BD BLBC -—ANL_ STATUS, : 0437 ; 
OOFF 8F 1 Hf a0¢5 yy TRING_LEN, #255 3 0441 : 
50 000000006 BF pO O0¢7 4$: MOVL #SMG$_FILTOOLON, RO S 0443 : 
EO AD 52 00 O00C 5$: MOVL § STRING_PTR, FAB+4 + 0444 ; 
—E5 AD 51 90 6 Ob3 MOVB  STRING-LEN, FAB+S + 0445 : 
BO AD 9F 00007 68: PUSHAB FA : 0456 ; 
000000006 00 gi FB S00DA CALLS SYSSPARSE : ; 
1D 0 €9 000E1 BLBC Paase STATUS, aS + 0457 ; 
08 00000000° cf E8 OOOE4 BLBS QuEDE 7 + 0467 : 
0000v CF 0 FB OO0EB CALLS yO" SHESSINIT QUEUES : 047 ; 
OE 50 EY O0F0 BLBC INIT As ATUS, 8$ + 047 : 
08 AE OF O00F3 7S: PUSHAB VM POIN NTER : 04 : 
08 AE E2 8F 9A 000F6 MOVZBL #226, 8(SP) : : 
08 AE 9F O000FB PUSHAB 8(SP : ; 
6A 02 FB OOOFE CALLS #2, LIBSGET_VM : : 
01 5 be Bai) 8$: BLBS VM_STATUS, 9$ ; 0487 : 
OOE2 =F 00 6E = 00 C 90195 9$: MOVCS #0, (SP), #0, #226, @VM_POINTER : 0490 : 
58 08 AE 0 1 00106 ADDL3. #48, VM_POINTER, KCB : 0491 : 
Oc AE 9F 0011 PUSHAB KQB_ : 0508 : 
03 AE OC DO 00116 MOVL #127 8(SP) : : 
08 AE 99F OO11A PUSHAB : : 
6A 9 FB 011D CALLS #2, LIBSGET_VM : 3 
54 E9 001 BLBC VM_STATUS, T2$ : 0509 3 
5 oc A D9 1 MOVL KQB_PTR, KQB : O1¢ ; 
08 A 2 DO 001 MOVL KCB> 8(KQB) > 051 : 
D8 OA pO 128 VL KQB, -40(KCB) : 0514 3 
00000000" EF 0 12F INSQUE (KQB), KQB QUEUE > 0515 : 
04 FO AD ; ; 1 S 2, FAB DEV, 10$ : 0525 : 
/: Ss 1 BISB2 #1. -4(RCB) : 0527 : 
0 FC OA 13f 10$:  BLBC <-4(kCB), 118 > 05 : 
0085 31 00143 BRW 1 ; : 
F4 AB 9E 00146 11$: MOVAB -12(KCB), R2 ; 0547 ; 
70 AE FF5B OCD 98 146A MOVZBW NAM+11, DEVNAME DESCR : 05 3 : 
72 AE 0106 F 150 OVW #270, BEVNAME DESCR+ : 03 ; 
a AE 9E 00156 MOV RESULTANT _STRING, DEVNAME_DESCR+4 : 0556 : 
ze € 00158 CLRO SP : 0559 : 
D4 AS 9F 0015D PUSHAB -44(KCB) ; : 
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; Routine Size: 801 bytes, Routine Base: _SMGS$CODE + 0020 
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SINPUT Screen Management Facility Input Procedures 16-Sep-1984 00:43:07 AX-11 Bliss-32 V4.0-74 
smo SNGSREAD STRING _ 12-88-1382 90:08:59 SMGRTL. RCISMGINPUT .B3 31 
; 749 i 1 ZSBTTL ‘SMGSREAD STRING’ 
; 750 1 GLOBAL ROUTINE SMGSREAD_STRING ( 
s 751 7. Oe KEYBOARD_ID: REF VECTOR C, LONG], 
: 7 : é 1 OUT STRING: REF BLOCK LC, byte] 
7 1 PROMPT STRING: REF BLOCK C, BYTE), 
; bee 3 1 MAX_LENGTH: REF VECTOR C, LONG, 
s 22 1 MODIFIERS: REF VECTOR C, LONGI, 
; 756 0 1 TIMEOUT: REF VECTOR C, ae 
: 757 os TERMINATOR_SET: REF BLOCK 6yYTE), 
: 758 08 j 1 OUT_LENGTH? REF VECTOR C, WORD], 
: 759 833 1 TERMINATOR_CODE: REF vec TOR C, WORD], 
: 760 08 , i DISPLAY_ID? REF VECTOR C, LONG) 
: 761 ‘eS )= 
3 166 08 § 1 
; 76 08 1 !4+ 
3 ree 83 3 1 } FUNCTIONAL DESCRIPTION: 
3; 766 0840 1! This routine reads a sequence of characters from the virtual-keyboard 
3; 767 0841 1! specified and returns to the caller the characters read. The caller 
: ree Oae : may also specify that a code indicating the terminator be returned. 
; 770 0844 1 ! CALLING SEQUENCE: 
3 771 0845 1! 
3s 7 0846 1! RET_STATUS.wlc.v = SMGSREAD_STRING ( 
s 7 0847 1! KEYBOARD _ID.rl.r, 
3 774 0848 1! UT_STR ewt.dx 
3; 775 0849 1! » LPROMPT_STRING.rt.dx] 
: 776 0850 1! » CMAX_LENGTH. rl. 
: 777 0851 1! , CMODTFIERS.rl.rJ 
: 778 ety 1! . CTIMEOUT.rl.r) 
: 779 0855 1! , CTERMINATOR_SET.rt.dsJ 
; 780 0854 1! » COUT_LENGTH.wwu.rJ 
; 781 0855 1! ’ TERMINATOR_CODE wy 
: 78 0856 1 ; EDISPLAY_IDsrl.rJ JJ3J33])) 
; 78 0857 1! 
3; «784 0858 1! 
; 785 0859 1 ! FORMAL PARAMETERS: 
; 786 0860 1! : 
3; «787 0861 1! KEYBOARD_ID A longword containing the identification of the 
; 788 Bag 77 virtual-keyboard from which to read. A virtual- 
; 789 0865 1! seyposcd is created by calling 
; £90 0864 ; SMGSCREATE_VIRTUAL_KEYBOARD. 
: 79 aBse .? PROMPT_STRING An optional string to be used as the prompt for 
: a, $e ' the read operation. 
; a] 0869 : OUT_STRING A string into which is written the characters read. 
: 797 871 1! MAX_LENGTH A longword containing the maximum number of characters 
: 798 872 1! to read. The maximum value of MAX_LENGTH is 512. If 
: 44 ih : omitted, 512 is used. 
: 01 = +! MODIFIERS A Longuord bitmask that specifies optional behavior. 
; on6 6 1! The bits defined are the same as for the $010 
: oF : : item-List entry TRAS_MODIFIERS. 
: 50S $B) 1! See the terminal driver section of the I/0 User's 


MGSINPUT Screen Management Facility Input Procedures Sep-1984 00:43:07 AX-11 Bliss-32 V4.0-7 Page 21 
at, SHGSREAD. STRING se 1$-sep-1964 99:55:05 Eaten t Osa Sshenruyos3;1 oe 3] 
3 £06 01! Guide for more information on MODIFIERS. The | 
; 80 i os TRMS$ syabols are defined by the STRMDEF nacro/module 
; Bos ¢ ! in Digital-supplies system symbol Libraries 
: 810 8 h 1! TIMEOUT Optional timeout count If specified, all characters 
: ae > 3 Fyped n before the timeout are returned in the buffer. 

3 \§ $ 1! If omitted, characters are returned in the buffer until 
: gi? ff : a terminator is seen. 

; 815 0889 1 / TERMINATOR_SET descriptor of terminator mask, 0 - oytee 

; 816 90 1! (class, dtype ignored). If S mitted, the VAX-11 

; aif 9 3 RMS ecandery terminator set is See the Seratant 
3 18 36 1! driver section of the VAX/VMS 170" os s Guide for 

: 312 Baez ! more information on Seoe living terminators. 

: 821 Base 1/ OUT_LENGTH An unsigned word into which is written the number 

; 8 ¢ 896 1! of characters read or the maximum Length of 

; 5 t +344 : OUT_STRING, whichever is less. 

: 825 0899 1! TERMINATOR_CODE An unsigned word into which is written a code 

; 826 900 1! indices ng what character or key terminated the 

; 827 901 1! . For more information on the values for 

; 828 0902 1! TERMINATOR CODE, see the description of termina 

; o¢? Benz : codes in the Screen Management functional ochre |» a a 
: 831 0905 1! DISPLAY_ID A_longword containing the ident ification of the 

3 Ht 0906 1! virtual Pp in which the read is to be performed. 
; 83 0907 1! If specified, the read begins at the current cursor 

; 834 0908 1! position in that virtual- isplay. If omitted, the 

8 Ht 3444 : } read begins in the current cursor position. 

: 837 ogi { IMPLICIT INPUTS: 

fe Bt ee 

: Bai 0915 ! IMPLICIT OUTPUTS: 

Bil 

; 45 0319 ' COMPLETION STATUS: 

: 7 0921 1: SS$_NORMAL Normal successful completion 

: 8 9 § 1! SS$~ CANCEL 1/0 operation cancelled (by SMGSCANCEL_INPUT) 

: y 9 1! SMGS$_EOF End-of-file 

; 850 924 1! SMG$_INVDIS_ID Invalid dis lay-id 

; 851 925 1! SMG$_INVKBD_ID Invalid keyboard-id 

: 26 9 $ 1! _.WRON Wrong number of preuse 

; & 9 1 3 LIBS_xxx Any error from LIB ScOPY 

: B54 9 3 1! RMSS$" xxx Any error from $GET COPY RD RMSS EOF) 

: 2? ; : } SS$_xxx Any error from $Q10W 

; 3 g : i SIDE EFFECTS: 

; 59 3 5 NONE 

: 861 935 1 ie | 
3 2 9 1 


aye 
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D_S TRING 12-8 08- 1 3be 9 $3 49 SMGRTL.SR RCISMGINPUT .B3 31 ° F 
BEGIN 
LOCAL 
KCB: REF KCB_R_K Res STRUCT 
BUFFER: VECTOR"(512, BYTEd, 
BUFFER_PTR, 
BUFFER-LEN: WORD, 
KEY_COBE: WORD, 
ITEM_LIST: SITMLST_DECL (ITEMS=4), ! Q10 item List 
Q10_ STATUS 
COPY_ STATUS, 
RET_STATUS, 
DISPLAY_ID_FLAG : INITIAL (0) 
ILTIN 
ACTUALCOUNT, 
CALL 
NULLPARAMETER, 
TESTBITSC; 


+ 
Define Literals for the argument positions. 


LITERAL 
kK ‘KEYBOARD ID = 


Pr] 

3 

al 
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o- 
le 
" ary 
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Ores 
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'¢ 
Define Literals for the item List positions. 


LITERAL 

K “RODIFIER ses = 0, 

K_PR OMPT 

K_NEXT 2 The next available ay yin 

K “ALLOWED “MODIFIERS = IOSM_CVTLOW + A modifiers 
I1O$SM_DSABLMBX + ' 5f40 
IOSM_ESCAPE + 
IOSM_-NOECHO + 
10$M_ cope ON + 
1O$M- PURGE + 
10$m_ TRRNOE CH 0; 


SSMGSVALIDATE_ARGCOUNT (2,10); 


'+ 
‘ Fetch and validate KCB. 


Lait 
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09:49 


SSMGSVALIDATE_KCB (KEYBOARD_ID, KCB); 


+ 
Assume success. 


RET_STATUS = SS$_NORMAL; 

14 

Split depending on whether or not we are using RMS. 
IF .KCB CKCB_V_RMSJ 

THEN 


1¢ 
} Read a Line using $GET. 
BEGIN 
LOCAL 
GET_STATUS; 
GET STATUS = $GET (RAB = KCB CKCB_R_RAB)); 
IF NOT .GET_STATUS 
THEN 
BEGIN 
IF .GET_STATUS EQLU RMS$_EOF 
RET_STATUS = SMG$_EOF 


ELS 
yp RET-STATUS = .GET_STATUS; 


+ 
If user asked for TERMINATOR_CODE, return <CR>. 


IF NOT NULLPARAMETER (K_TERMINATOR_CODE) 
TERMINATOR_CODE CO] = SMGSK_TRM_CR; 


'¢ 


Set BUFFER_PTR and BUFFER_LEN. 


BUFFER_PTR = .KCB CRABSL_RBF ; 
BUF FERTLEN = (KCB CRABSW7RSZ); 


ELSE 


4 
Use $Q10. 


rather than as a series of NULLPARAMETER tests for speed. 
‘ IF ACTUALCOUNT () GEQU K_MAX_LENGTH 
4 THEN 
5 BEGIN 
$ LOCAL é 
CUR_ITEM; ! Pointer into ITEM_LIST 
98 CUR_ITEM = ITEM_LIST CK_NEXT,0.0,0,0); | 
| 
00 IF MAX_LENGTH [0] NEQA 0 | 
THEN 


BEGIN 
KCB CKCB_L_Q101_P2] = ,MAX_LENGTH (0); 
IF gxkce TKTB_L_0101_P2) GTRU XALLOCATION(BUFFER) 


TH | 
ee RETURN SMG$_INVMAXLEN; 


d 3 
MGSINPUT Screen Management Facility Input Procedures 16-Sep-1984 00:43:07 AX-11 Bliss-32 V4.0-74 Page 24. " 
at, SHGSREAD. STRING — 1er8eb= 138s 99:55:85 FeMGat OskessRe Mtoe 45.1 as - 
: 977 1051 BEGIN 
: 978 1938 LOCAL 
; 979 10 CURSOR_BUF : VECTOR C15, BYTE], ! buffer for set cursor sequence 
; 980 1054 CURSOR BUF _LEN : INITIAL (0), ! used number of bytes in cursor_buf | 
; 981 1939 FREE_COLS; ! calc. needed if display_id used 
; oB¢ 10 § 
: 98 105 + 
: 984 1058 i If the last read ended in “Z, return SMGS_EOF. | 
> 985 1059 '- 
; 4986 1399 
; 987 1061 IF TESTBITSC (KCB CKCB_V_CTRLZ]) 
; 4988 1996 H 
; «6989 106 RETURN SMG$_EOF; ! End of file 
; 990 1064 
; «991 1065 + F 
3 338 1066 ! Build the item List for the Q10. 
: 99 1067 - 
: 994 1068 
; 995 P 1069 SITMLST_INIT C(CITMLST=ITEM_LIST, 
; 996 P 1070 (ITACOD=TRM$_MODIFIERS, BUF ADR=TRMSM_TM_ESCAPE, BUFSIZ=0), 
; 997 1071 (1TMCOD=TRMS$_PROMPT, BUFADR=0, BUFSIZ=0)); 
>; 998 1078 
; 999 107 1¢ 
; 1000 1074 ' Set up the $Q10W argument List. 
; 1001 1075 l= 
3 B08 1076 
; 100 1077 KCB CKCB_L_Q101_FUNC] = I0$ READVBLK+IOSM_EXTEND; 
> 1004 1078 KCB CKCB"L-Q101-P1) = BUFFER; 
; 1005 1079 KCB K¢B-L~a101~P23 = XALLOCATION(BUFFER); 
; 1006 1080 KCB CKCB"L~Q101-P3] = 0; 
; 100 1081 KCB CKCB_L_Q101_P4) = 0; 
> 100 1 Be KCB CKCB"L-Q101"P5] = ITEM_LIST; 
; 100 108 KCB CKCB7L7Q101"P6) = XALLOCATION(ITEM_LIST) - 28; ! Don't count timeout 
: 1084 ' or term. set yet. 
5 1085 ' and SITMLST_DECL 
: 1086 ' adds extra 4, 
3 1087 
; 1088 '¢ : 
3 : 34 ! Check for optional input parameters. This is done as a nested if 
: 109 
3 109 
: 109 
: 109 
3 109 
: 109 
3 109 
3 109 
3 1 
3 1 
: 1 
: 1 
3 1 
3 1 
: 1 
3 1 
: 1 
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IF ACTUALCOUNT () GEQU K_MODIFIERS 
THEN 
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BEGIN 
IF MODIFIERS CO] NEQA 0 
THEN 


ITEM_LIST CK MODIFIER MASK, ITMSL_BUFADR] = 
-ITEM_LIST tk MODTFIER_MASK,ITMS$L_BUFADR] OR 


Ss 
$s 

; 10 1198 4 

; 10 1109 4 

; 10 ° 1110 

B HF 

; 10 5 118 

: 1040 1114 

; 1041 1115 -MODIFIERS ; 

: 104¢ 1118 IF ACTUALCOUNT () GEQU K_TIMEOUT : 

; 104 111 THEN 

: 1044 1118 6 BEGIN 

: 1048 1119 6 If TIMEOUT [0] NEQA 0 | 

: 1046 1120 8 THEN 

; 1047 1121 BEGIN 

: 1048 11 ¢ 7 SLIBSWWORD_A (CUR_ITEM) = 0; 

> 1049 1123 7 SLIBSWWORD-A (CURTITEM) = TRMS_TIMEOUT; 

: 1050 1124 7 SLIBSWLONG_A (CUR-ITEM) = .TIMEOUT (OJ; | 

> 1051 1125 7 SLIBSWLONG_A (CURTITEM) = 0; 

; 1928 1126 6 END; 

; 105 1127 6 IF ACTUALCOUNT () GEQU K_TERMINATOR_SET 

; 1054 1128 6 THEN 

; 1055 1162 7 BEGIN 

; 1056 1130 7 IF TERMINATOR_SET (0,0,0,0] NEQA 0 

: 1057 1131 7 THEN 

; 1058 1138 8 BEGIN 

; 1059 1133 8 SLIBSWWORD_A (CUR_ITEM) = .TERMINATOR_SET CDSC$W_LENGTH]; 

: 1060 1138 8 SLIBSWWORD_A (CUR_ITEM) = : 

3 1061 1135 8 SLIBSWLONG-A (CURTITEM) = ,TERMINATOR_SET CDSCSA_POINTER]; 

: 1206 1136 8 SLIBSWLONG_A (CUR_ITEM) = 0; 

: 106 1137 7 END; 

3: 1064 1138 7 IF NOT NULLPARAMETER (K_DISPLAY_ID) 

: 1065 1139 7 THEN 

: 1066 1140 8 BEGIN ! display_id present 

: 1067 1141 8 '¢ 

; 1068 1136 8 ' Interfacing with output's virtual displays. Make sure user can 

; 1069 1143 8 ' not type beyond the display's boundaries by Limiting the input 

; HFA! be: 4 size to the number of free columns (allowing room for prompt, if 

3 ! any). 

3 1028 1146 8 ’ Novice that we need some info from SMGSSSET_PROMPT_STRING (prompt 

; 107 1147 8 ! string songee ss and we need to provide it with some info (set cursor 

3: 1074 1148 8 ' sequence, if any). So get the info here and save it. 

: 1075 1149 8 + 

: 1076 1150 8 LOCAL 

3 1077 1151 OUT_STATUS 

: 1078 113¢ DISPLAY=ID FLAG = 1; '! for quick checks Later 

3; 1079 115 IF .KCB KCB_L_PASTEBOARD_IDJ LSS 0 ! pb not established yet 

; 1080 1154 } THEN 

: 1081 1155 BEGIN 

: 1086 1128 9 OUT_STATUS = SMGSS$GET_PASTEBOARD_ID (REF (.KCB CKCB_W_DEVNAM_LENGTH]), 

; 108 1157 9 KCB FeCB_T _DEYNAR STRINGS 

> 1084 1158 9 KCB _CKCB"L~PASTEBOARD_1DJ5; 

; Hs $4 + 4 g ua -OUT_STATUS THEN RETURN (.OUT_STATUS); 

: 1089 1161 OUT_STATUS = SMGS$SSET_PHYSICAL_CURSOR (.DISPLAY_ID | 

: 1088 1168 KCB CKCB7L_PASTEBOARD_1D], 

; 1089 116 CURSOR_BOF 7 

3; 1090 1164 CURSOR _BUF _LEN, | 
| 


= 

coo. 
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3"6 3 SMGSREAD_S STRING eee 14-Sep-1 1382 9: $8:95 SMGRTL.SRC SMGINPUT. B32;1 . (4) | 
; 1091 1165 FREE _COLS); ; 
: 136 1168 IF NOT .OUT_STATUS THEN RETURN .OUT_STAT H 
; 109 116 END; ! display. id” present ; 
: 1094 1168 8 END; 3 
: 1095 1189 END; | : 
3 1998 1170 4 END; : 
; 109 1171 4 3 
; 1098 1106 4 ‘+ : 
: 1099 11735 4 ! Change item-List length to reflect modifications. : 
: 1100 1174 4 '- 5 
3 1101 1175 4 ; 
; 1198 1178 4 KCB CKCB_L_Q101_P6] = .CUR_ITEM = .KCB CKCB_L_Q101_P5); ; 
3; 110 117 END; 3 
s 1104 1178 . 
1108 1180 is t up th t stri 
Py et up e prompt string. e 
; 1109 1181 8 3 
; 1108 1136 : 
3; 1109 ie 4 BEGIN : 
; 1110 1184 4 LOCAL ; 
3 1111 1185 4 STATUS : 
: N18 1186 4 NULL_S NG : BLOCK Sep titt : 
3 111 1187 4 NULL_STRING DSCSB_DTYPE] = DSCSK_DTYPE_T; 5 
3 1114 1188 4 NULL_STRING CDSCS$B_CLASS] = DSC$K— _CLASS_ “S$: : 
3 1115 1189 4 NULL_STRING LDSCSW_LENGTH] = 0; ; 
: 1338 119 : NULL “STRING DSCSA_POINTER] = UPLIT (' ‘); : 
3 1118 1138 4 IF Pa hoy ID_FLAG OR 3 
3 1119 1193 4 T NULLPARAMETER (K_PROMPT_STRING) | ; 
3 118 1194 4 3 
3; 1121 1195 § BEGIN ! setup prompt é 
3 1156 1196 5 STATUS = SMGSSSET_PROMPT_ STRING ( b 
s 12 1197 6 (IF NULLPARAMETER (Kk _PROMPT_STRING) : 
3: 11246 1198 6 N : 
; 1125 1199 6 NULL_STRING é 
> 1126 1200 3 ; 
: 1127 1201 PROMPT_STRING (0,0,0,0]) ; 
> 1128 1208 5 ITEM LIST fk PROMPT, 0,0.0,04, : 
3 1129 1203 5 . CURSOR uF CEN. : 
3 1130 isn CURSOR R BUE) 3 3 
3; 1131 1205 IF NOT .STATUS : 
3 1136 1206 N ; 
: 11 1207 5 RETURN .STATUS; 3 
: 1134 1s08 4 END; ! setup prompt | 3 
> 1135 1209 4 IF .DISPLAY_ID_FLAG : 
3 11 1519 4 THEN 3 
3; 1137 1211 § BEGIN : 
3 1138 ’ 1 5 THEN STRING C0,0,0,0] NEQA 0 | : 
: 1140 1214 2 FREE_COLS = .FREE_COLS - .PROMPT_STRING CDSC$W_LENGTH); 3 
3: 1141 1215 IF .FREE- _COLS LEQ 0 3 
3 1166 1 16 THEN é 
3 114 121 '+ é 
: Bp ' \8 No room to accept input. Exit. : 
: 1146 1 30 RETURN (SMG$_INVCOL); ! improve this message Later ; 
: 1147 1221 3 


T - 243: - - 
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: 1108 1 § IF .KCB CKCB_L_Q101_P2] GTR .FREE_COLS ‘ 
3 114 1 THEN $ 
; 1150 12246 KCB CKCB_L_Q101_P2] = .FREE_COLS; : 
3 1 1 ! 5 4 =e ND; : 
4488 1559 | : 
> 1154 1 3 lee : 
; 1155 1 i If this routine is supposed to execute on a V3.n system, map back ; 
3 1137 : ? ies the item-List entries into the old-style of $010. | : 
; 1158 1 ¢ 3 
; 1159 .¢ ZIF XVARIANT 3 
: 1160 U 1234 ZTHEN : 
3; 1161 U 1235 BEGIN ; 
1168 U 1236 KCB EKCB_L_Q101_FUNC] = 108_READVBLK; | : 
3; 116 ul KCB LKCB_L_Q101_P } = 0; . 
3: 1164 U 1238 KCB LKCB_L_Q101_ P6J) = 0; ; 
: 1165 U 1239 IF .ITEM_LTST CR PROMPT, ITM$W_BUFSIZ] NEQ 0 ; 
: 1166 U 1240 THEN : 
3: 1167 U 1241 BEG ; 
; 1168 U1 eg KCB ett P5] = .ITEM_LIST EK. PROMPT, ITM$L_BUFADR); 3 
; 1169 U 124 KCB CKCB_L_Q101"P6) = .ITEM~ LIST K PROMPT, ITMSW_ “BUFSIZ): é 
; 1170 U 1244 KCB CKCB-L_Q101_FUNC) = 108 ~READPROMPT ; : 
31171 U 1245 END; F 
; 1128 U 1246 ff NOT NULLPARAMETER(K _TIMEOUT) ; 
3 117 U 1247 THEN ; 
3 1174 U 1248 BEGIN : 
s 1175 U 1249 KCB CKCB_L_Q101_P3] = . TIMEOUT (0); : 
3 1178 : 39 Ap: KCB_L_QI01_FUNC) = .KCB CKCB_L_QIO1_FUNC] OR IOSM_TIMED; : 
3; 1178 U1 26 Md NOT NULLPARAME TER (K _TERMINATOR_SET) 3 
: 1179 U 125 THEN : 
; 1180 U 1$2¢ BEGIN 3 
; 1181 U 1255 LOCAL : 
: 1186 U 1256 alle " “wt Ru ence CITEMS=1); : 
; 118 U 1257 = Tent 0,0,0,0]; : 
> 1184 U 1258 wi 07 insu’ eet NEQ TRMS_TERM ; 
> 1185 U 1259 | : 
3: 1186 U 1260 ITEM = CUR ITEM C1, 0,0,0,0); ; 
> 1187 U 1261 KCB EKce L_Q101_P4] = .CUR ITEM: | : 
; 1188 U1 6¢ END; ’ 
3 1189 U 126 : 
; 1190 U 1264 IF NOT NULLPARAMETER (K_MODIFIERS) ; 
3; 1191 U 1265 THEN 3 
3 HB U 1266 KCB CKCB_L_Q101_FUNC] = o. CKCB_L athe UNC] OR 3 
3 119 U 1267 (MODIFIERS $~C0) IND K_ALLOWED_MODIFIERS); | 3 
3 1194 U 1268 : 
: 1195 U 1269 END; . : 
5 1138 1270 xFI 'e* End of variant code 3 
3; 119 1271 eit | : 
; 1198 1272 4 BEGIN ! Q10 w/rendition : 
> 1199 1273 4 LOCAL | : 
; 1200 1274 4 PBCB : REF BLOCK [ orig? : 
; 1201 1275 4 DCB : REF BLOCK C,6Y | ; 
: 120 1277 & IF .DISPLAY_ID_FLAG : 
3: 1204 1278 4 THEN : 


. 1384 90:8 $f AX-11 Oh legeae V4.0-74 Page eB 


H 
6-S 
6 SMGRTL.SRCJSMGINPUT .B32;1 


en Renegrnent Facility Input Procedures 
ING -Sep-1 


1 
READ_ST 1 
BEGIN ! display _id/check rendition 
+ 
! Make sure the prompt and input appear ir. the correct video 
} rendition, 


SSMGSGET_DCB Fit 8 1D, DCB); 
SSMGSGET-PBCB (KCB CKCB_L_PASTEBOARD_IDJ, PBCB); 


4 
Don't allow input if display is batched. 


M4 gPCBCDCB_L_BATCH LEVELJ NEQ 0 


WAAR POPIPIPIPINPINIIIDD 2 PO OO Oe oe 


-( 
: 1 1 2 
3 1 1 : 

3 7 1 | 
3; 1 1 3 | 
: 1 1 3) 
3 3 1 3 | 
s 1 1 : | 
3: 1 1 3 | 
| 1 3 | 
3 1 1 3 | 
3 7 1 : | 
; i | 3] 
3 1 1 | 3 | 
3 1 1 | 3 
3: 12 1294 $ | 
: 1999 RETURN SMG$_ILLBATFNC; 3 | 
s ¥ 129 '+ : 
3; 1 1298 ! Handle renditions if necessary. 3; | 
1 1806 3 +s 
; g 01 3 SMGSSSET_ATTRIBUTES_ON (.PBCB,.0CB CDCB_B_DEF_VIDEO_ATTRJ); 3 | 
s le 1 88 4 END; ! display_id/check rendition : | 
; 3 1304 4 : | 
| 1305 4 te : | 
3 1 1306 4 ! Read the string. : | 
3 te 1302 4 '- 3 

g 3 1308 4 3] 
71 1309 4 QIO_STATUS = CALLG (KCB CKCB_R_Q101), SYSS$QI0W); 7 
; ise6 1319 ; IF [QIO_STATUS : 
: 1238 131g 4 QIO_STATUS = .KCB CKCB_W_IOSB_STATUS); x | 
$ 1s 131 4 eB 
3; 1240 1314 4 4 3 | 
3 1241 1315 4 i If we set the video rendition, turn it off now. : | 
3 1666 1316 4 != Bl 
: 124 1317 4 3 } 
H : te 1 3 2 IF .DISPLAY_ID_FLAG : 
3 1s66 1389 2 SMGSSSET_ATTRIBUTES_OFF (.PBCB,.D0CB COCB_B_DEF_VIDEO_ATTRI); : 
3 1 ra 1 § 4 IF NOT .QIO_STATUS 3 | 
3; 124 1 4 THEN é 

; 1250 1324 4 RET_STATUS = .QJO_STATUS; ; 

> 1251 1325 ND; ! Q16 w/rendition : 

31 ¢ 1 $8 : 

; 125 1 '¢ 3 

: 1254 1 $8 ' Check for partial escape sequence in the buffer. This can : 

3; 1255 1 ! happen if the Q10 was Limited to 2 characters and the input ; 

; ' 2$ : string was terminated by a keypad key (which are 3 chars). : 

: 1258 1 | ; 

3; 1259 1 5 IF .KCB CKCB_W_IOSB_STATUS) EQL SS$_PARTESCAPE ; 

: 1260 1334 THEN : 

3; 1261 1335 4 BEGIN 5 


'¢ 
Get the terminator code. 


3 
MGSINPUT Screen Management Facility Input Procedures 1b-se -1984 00:43:07 AX-11 Bliss-32 V4.0-74 Page 29) “a 
smote SAGSREAD. STRING Soe 12-88-1382 99:63:95 SMGRTL.SRCISMGINPUT.B3 31 . (4) | ra 
| 4 
; 126 1 § 4 OCAL : 
; 126 1 4 Q10_RESULT, 3) 
: 1264 1 : 4 CHAR_BUF : BYTE $ } 
: 1969 1359 END_ESC_FLAG : [NITIAL (0); 3 | 
: 1 e 1341 4 BUFFER_LEN = .KCB CKCB_W_I0S8_COUNT] + .KCB CKCB_8_10SB_TERMLEN]; 3] 
; ! re : 45 ; !“point past data & partial” terminator : 
: 1270 1344 4 WHILE .END_ESC_FLAG EQL 0 DO : | 
: 1571 1345 BEGIN 2 
3 127 P 1 rk] QIO_RESULT = SQ1OW (EFN = .KCB CKCB_L_EFN], . | 
; 127 P 134 CHAN = KCB CKCB_@ CHANNEL, $ | 
3 1274 P 1346 FUNC = (IO$_READVBLK + IOSM_ESCAPE + : 
: 1275 P 1349 IOSM_NOECHO + IOSM_ROFILTR + : | 
3; 1276 P 1350 10$M_TRMNOECHO), | 
: 1277 P 1351 P1 = CHAR_BUF, >| 
: 1278 P 1 26 P2 = 1, 3 | 
3; 1279 135 P4 = .KCB CKCB_L_Q101_P4)); 3 | 
; 1280 1354 ' = defined terminator set ; | 
3 1281 1355 IF NOT .QIO_RESULT THEN RET_STATUS = .QIO_RESULT; 3] 
: Ieee 1 28 5 : 1 
: 128 135 2 + | 
> 1286 1358 ! Move terminator characters to buffer. : | 
> 1285 1359 5 i ‘4 
: 1286 1360 5 31 
; 1287 1361 5 BUFFER C.BUFFER_LEN] = .CHAR_BUF; 3: | 
; 1288 1 6¢ 5 BUFFER_LEN = .BOFFER_LEN + 1; : | 
: 1289 1363 3 KCB CKCB_B_IOSB_TERMCEN)] = .KCB CKCB_B_IOSB_TERMLEN) + 1; 3 | 
: 1594 1366 5 CASE .CHAR_SUF FROM ZC°A' TO &C°~" OF | 
3 1536 1366 5 3] 
3 129 1367 5 Czc'A’ TO XC'D', ' arrow keys : | 
: 1294 1308 5 bo ' Enter 3) 
3; 1295 1369 : ao’e* to 3C°S*, ' PFn keys 3) 
3 1296 1370 ZC'L" to XC'n', ' keypad -,. ; | 
> 1297 1371 3 ZC'p' to XC'y’, | keypad 0-9 : | 
; 1298 1 4 5 "3: ! function keys F6-F20 (no codes for : | 
: 1299 1375 5 ! FI-F5), editing keys (E1-E6) : 
; 1300 1374 6 BEGIN g:) 
3; 1301 1375 6 END_ESC_FLAG = 1; 3 | 
3 1336 1376 6 RET-STATUS = SS$_NORMAL; 3 | 
3; 130 1377 6 T get rid of ss$_partescape error . 
3 1304 1378 END; 3 | 
: 1305 1379 3] 
31 1380 CINRANGE, OUTRANGE): _— : 3 | 
; 1307 1 3 ; ! didn’t find end of esc terminator s | 
3; 1308 1 § ! keep searching e 
3 ’ 44 : b4 TES; : 
3; 131 1385 4 END; ! end of WHILE boge 3 
..% 1 $6 END; ! end of partial ESC terminator 3 
+ 1 : 
. % 1388 3 
3 1 1389 : 
s 3 1 $ 
s ¥ 1 : 
3 1 1 : 


DWNOUS who 


WIAA 


i a oe 


oo 
t— 


| 
IF .QIQ_STATUS EQL SS$_TIMEOUT 
| 


3 
SINPUT Screen Management Facility Input Procedures 18-5 Sep-1984 AX-11 Bliss-32 V4.0-7 Page Bi 

AD -Sep- Le NPUT.B ¥ 
smote SHGSREAD. STRING utes ease 138s P:gai25 «|| FaMAT Sbiegcse Ne 0-285 . ra 
; 131 1393 THEN 3 | 
; | é | 3 me KEY_CODE = SMGSK_TRM_TIMEOUT : } 
31 ¢ 1 36 KEY_CODE _= SMGSSTERM_TO KEYCODE (BUFFER C.KCB CKCB_W_10S8_COUNTIJ, :] 
; | ? 3 -KCB CKCB_B_10SB_TERALEN)); : 
: 1325 1 38 ‘+ 3] 
3; 3 3 1400 i If DISPLAY_ID was passed, call back output side to tell it | :] 
: : ‘ pet : what changed on the screen as a result of this prompt & input. : } 
; 1329 1408 
3 } ° 1e80 I DISPLAT_10 FLAG 2 
: 4 1406 4 BEGIN > 1 
: 1 a 1209 4 AL : 1 
:1 1408 4 OUT_STATUS; : 1 
; ! ? 169 4 IF PROMPT STRING (0.0.0.0) NEQA 0 ; 
: 1337 1411 : BEGIN ! popect rompt ries oo a e 344 
3 1338 sie OUT_STATUS = SMGSSREPORT_CHANGE_REPLACE (.DIS 31 
: 1339 1413 5 Ce CkCB_L *PRSTEBOARD 3 1 
: 1340 1414 § YREF (PROMPT T_STRING watts LENGTH]), 3 1 
3 1341 1415 5 -PROMPT_STRING CDSCS$A_POINTER)); : 
3 1368 1416 § IF NOT .OUT_STATUS A 3 | 
; 136 1417 5§ _STATUS NEQ ORGS _STRTERESC 3 | 
: 1344 1418 2 gi 3 1 
; 1349 1419 RET_STATUS = .OUT_STATUS; 3 | 
; 1347 14 9 ‘ ND; ! report prompt string change : 
: 1348 1422 5 BEGIN 31 
3: 1349 14 § MAP | 
3 1350 1424 é MODIFIERS : REF BLOCK C,BYTE); : 1 
> 1351 1425 § IF NULLPARAMETER (K MODIFIERS) OR 3:1] 
: 1338 1426 6 (NOT NULLPARAMETER (K_MODIFIERS) AND 3 1 
3 1327 16 7 g for (MODIFIERS sore pea : 
3; 1355 1299 6 BEGIN if noecho re ygered | 
> 1356 1430 6 OUT_STATUS = SHGSSREPORT: * chan E_REPLACE (.D SPLAY 3] 
: 1357 1431 6 KCB Ekc LPR TéBoaRp 1D), 3 1 
3 1358 1432 6 KEBLE wW_10S8_ COUNT) + 3 1 
3 1359 143 Cle FoRU Cup ARRNET R (K_MODIFIERS) AND 3 1 
: 1 1434 Noy (. MODIFIERS CTRM$V_TM_TRMNOECHO)) 3 1 
: ! 1636 ey arse CKCB_B_10SB_TERMCENT : 
: 1437 6 BUFFER); £4 
31 1638 6 ' report user's input string, 3 | 
3: 1 1439 6 i possibly with terminator 3 | 
31 1440 6 IF NOT .OUT_STATUS A 3 | 
; ! 1461 6 ail T_STATUS NEQ eras _STRTERESC 3 | 
: 1 1208 g RET_STATUS = .OUT_STATUS; 3 | 
: 1 1444 D; 3 
: 1 1445 4 END; : 
: 1 1446 4 3 
: 1 144 END; 3 
31 1448 : 
: 1 1449 ‘+ 3 


Kk 3 
$INPUT -Sep- 143: - - 
Btyre" —_Scaezonamagnt Feettey trou Procedures GF-seeags GOH NCH MENSA MASP TSS, ee 
7 
rs 


‘ 
81 


Check for a terminator of “2. 


IF .KEY_CODE EQL SMGSK_TRM_CTRLZ 
THEN 
BEGIN 
oT, count is zero, return SMG$_EOF now, else se 
a the flag so that it will be returned the next Has, 
IF _.KCB CKCB_W_IOSB_COUNT) EQL 0 
RET_STATUS = SMG$_EOF 


ELS 
. KCB CKCB_V_CTRLZ) = 1; 


1+ 
If the caller asked for TERMINATOR_CODE, store it. 


IF NOT NULLPARAMETER (K_ TERMINATOR, CODE) 
TERMINATOR_CODE [0] = .KEY_CODE; 


'¢ 
| Set BUFFER_PTR and BUFFER_LEN. 


Ww 
ARANVLSSSRVSARANLSSSVSAR GIN 


& 


BUFFER_PTR = we FER; 

BUFFER_LEN = .KCB CKCB_W_IOSB_COUNT); 
'¢ 
- Delete the prompt string, if any. 


ooo 


IF NOT NULLPARAMETER (K_PROMPT_STRING) OR 
-DISPLAY_ID_FLAG 


HEN 
: SMGSSDELETE_PROMPT_STRING (ITEM_LIST CK_PROMPT,0,0,0,0)); 
' + 
| 


i We now have the complete Line in BUFFER, with Length BUFFER_LEN. 
i. Copy it to the user's string. 


COPY_STATUS = LIBSSCOPY_R Oxe AG 68 Ooi: LEN, 


ee ee ee ee ee ee ee ee 
NOUS WN OOS NOUE WN O0On 


oe oY oY > >F >t >t ot at ot ot ot et ee ee ee ee ed 


POPPOPIMDPONINININIPINPUPINPINIDAI WNW NA AAA ANNAN AAAI BB BBE EEE FE PAI 


WUAWARPOPONUPUPNUPUINI NN 2 = ee 


499 TBUFFER PTR our. STRING 
2 9 IF NOT . .COPY_STATU 
3 5 § RETURN .COPY_STATUS; 
6 in oe 
1 505 ! FILL im OUT_LENGTH if requested. 
2 506 '- 


mee 


en Management Facility Input Proced 
SREAD_ STRING stint ari 
ten NULLPARAMETER (K_OUT_LENGTH) 
BEGIN 
CAL 
LINE_LENGTH: W 
LIBSANALY E_ SDESC 
Heir tNeLERGTH LSSU .BUFFER_LEN 
BUFFER LEN = .LINE LENGTH; 
OUT_LENGTH CO) = .BUFFER_LEN; 
END; 
RETURN .RET_STATUS; 
END; 


Ok kk tk td tt 
Dt ee te ee ee 
5 ee ek ae De ae ee ae ek nh oh hk he 

OONOULW 


ONOULSWN oO 


Be Ge Oe Se Ge Ge Be Se ee Be Se Se Se Se Se ae 


00341 
00 00 00 20 00344 P.AAC 
OFFC 00000 
5B 00000000G 00 9E 00002 
5A 00000000G 8F D0 S080 
5E FDA4 g& 9E Bete 
6 04 0001 
50 6C 9¢ 33 00017 
08 5 1 00018 
08 18 ts 
50 00000000G 8F D0 000 
04 90027 
52 04 =«BC 0 00028 1$: 
06 1 i C 
52 DC =©A2. D1 000 3 
08 13 Be 
50 00000000G 8F D0 00034 2$: 
04 000 
7 01 8 C 3$: 
6 FC as E F 
dD a3 
000000006 00 1 Fe 004 
11 0 € 4C 
0001827A = BF 2 } 4F 
> OG 
93 1 058 
7 po 5D 4$: 
9 Bf 1 60 5$: 
9 IF 6 
24 «AC 03 6 
04 «1 


! End of 


-BLKB 
ASCII 
~EXTRN 


-EXTRN 
-EXTRN 
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:07 AX=-11 BLi 4 
749 SMGINPUT .B32;1 


lis 
SMGRTL.SRC 


ORD; 
R2 (OUT STRING [0,0,0,03; LINE_LENGTH); 


routine SMGSREAD_STRING 


3 
\ \<0><0><0> 


SMG$_INVKBD_ID, SYSS$GET 
SMG$_INVPAS_ID, PBD_L_ COUNT 
PBD_A_PBCB, PBD_V_PB_AVAIL 


snesere STRING, Save R2,R3,R4,R5,R6,R7,R8,-; 
R9,R10,RT1 


SYS$Q10W, R11 
WSMG$_EOF, R10 
DISPLAY_{D 
2, CAPS, 
DIFF, #8 
#SMGS_WRONUMARG, RO 
@KEYBOARD_ID, KCB 
-36(KCB), KCB 
#SMGS_INVKBD_ID, RO 


#1, RET_STATUS 
-4(KCB)> 7$ 
KCB 


#1, SYSS$GET 
GET_STATUS, 5$ 
TISTATUS, #98938 

0, RET_STATUS 
T_STATUS, RET_STATUS 
Py, #9 


FLAG 
DIFF 


(AP) 


| 
| 


mo 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee eee es eee eee eee ee 12 


a oo a 


td es vee 088.4 


RCJSMGINPUT.B 


—M 


STRING 


Screen Management Facility Input Procedures 


SMGSREAD 


— 
=> 
a 
2 
= 
3S 
=! 
mm 


ua 
a 
oc2z 
wrew 
an 
am te 
ora & 
—ww 20 
trate w 
wun a & 
— 225 n~ 
=ZzoQomod u@® 
< DV 
we: @w 
-—-amn a 
@enawm aw 
wv of 
“—<~w 6 


OOO TMS ST WT VOTO ST OWWO VW KW WMO MOST — EMO UE NMOOT — HE OMOOCO TK enn 
DODOMOWOOS OMOG’ QMO AOS MA Or OO— OOC — Oe VO Or OOOO O- ODOC Oe 


04 


os 
~ 
co) 
_ 


S$SITMBLKPTR 
» CUR_ITEM 


PTR) + 
($$ITMBLKPTR) + 


ST, 44(KCB) 


, RO 
_CENGTH 


ee Ou UE lee 
WRAODRMORHMNVULY Kh w To 
—A—AWVRBM DOUMOFr VERO 
—~2- 2-2 OM2RM 2 or 


ITEM_LIST+24 


MAX 


80 00040000 


DOMDVK— FROQOUNG SWS M100 DO OCU COM O OWT WOM 


00000200 


: 1108 
4122 
1194 
1195 
1197 


@MODIFIERS, ITEM_LIST+4 

(AP), #6 

15$ 
$1072, (CUR_ITEM)¢ 
IMEOUT, (CUR_ITEM)+ 
MINATOR_SET, RO 


a VE AWUIM EMS NOW 
e—— ROY ee ew Tw ee 


11$ 


VOOM VVVV B& VMOM VO VOMOMUWUOe 
Or LODOO ZODDOOMN ZOWOo<owomanm 


50 000000006 
18 
83 000200 
28 


83 


Page 34 
#11 Bliss-32 V4.0-742 (4) 
g Procedures 1b-sep-198¢ m3 02 SMGRTL sae SMGINPUT .B32;1 1152 
SAGSREAD STRING | nes ty 17M gta #1, DISPLAY_ID_FLAG ¢ 115 : 
steel SMGSREAD_STRING 01 D0 012A TStL = =B (KCB) : 1158 : 
. ” FBO b3 } BGEQ §=«_-14$ : 115 ; 
72 ' A cvTU Nekce). 8(SP) : 1158 
Ae 32 001 HAB 8(SP) TEBOARD_ID ; 1159 : 
RE Be Te eer Ha) i 
caper ; ip 1h 148: PUSHAB CURSOR. BUF _LEN ; 
BC AE OF OO1eD PUSHAB CURSOR BUF” 
2 AS 3 00185 PUSH” DISPLAY_ID OR ; 
BB OAC ODD 0156 CALLS #5, SAGSSSET_PHYSICAL_CURS i 1166 
’ 05 43 01 BLBC out STA UeGRe ITEM 48 (KCB) > 1189 : 
ee Homadt Hea ae: fees Miah nobus gfe We) 
30 A2 AE 01060000 &F BF OOS, MOVAB DISPLAY NID-FLAG, 178 ; 119 : 
10 AE O 87 CF 171 BLBS DISPLAY_ID_ ; ; 
14 AE FE 56 4} 0177 CMPB = s«(AP), #3 : ; 
$8 GC 91 0017 BLSSU 228 
03 2¢ IF gi 70 TSTL } (ap) ; 1202 : 
D QL ; ; 
oc as 3 B01 Re 178: ort SURS08 BUF EN : 1202 } 
18 AE 9F 001 " — PUSHL CURSO TsT+T3 : 119 : 
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1 
GSREAD_COMPOSED_LINE 1 


0 3 1 XSBTTL ‘SMGSREAD COMPOSED LINE* 
1 4 GLOBAL ROUTINE SMGSREAD_ COMPOSED_LINE ( 
¢ 5 KEYBOARD _ID: REF VECTOR LONG] 
6 _TABLE_ID: REF VECTOR (, LONGI, 
54 LINE: “REF BLOCK C, BYTE) 
55 8 PROMPT STRING: REF BLOCK C, BY 
23 9 OUT_LENGTH: REF VECTOR fF. WORD 
ef , DISPLAY. ID: REF VECTOR [, LONG 
= 
59 ¢ 
60 
2 3 
8 6 SMGSREAD_COMPOSED_LINE reads a Line composed of normal keystrokes 
i and key equivalence strings. As keys are pressed > gee are 
any, is 


defined in the key-table, the equivalence string 
substituted in the input Line for the key. Attributes o 
the key definition control whether the equivalence string 
is echoed and whether the read terminates. 


The manner of the read operation is not affected or bcoz reve setts 

Characters typed are always echoed (in normal rendition). ; 

<CR> saueys terminates the read operation. 

If <CTRL/Z> is pressed and there is no definition 

in the seyat gate for CTRLZ, an appropriate oper is echoed, the read terminates. 
n e 


to other Screen Management procedures, unlike SMG$ 


Sta SS SSF 


MEUM" OOONOUSWNOOONOUM 


If the <CTRL/Z> was the first character in the e, then th 
status SMG$_EOF is returned, else SMG$_EOF is returned on the next 
input operation. SMG$_EOF {is also returned if RMS is used for input 
and it returns RMS$_EOF. No other terminators are recognized except 
: as specified by attributes in the key definitions. 
CALLING SEQUENCE: 
8 RET_STATUS.wlc.v = SMGSREAD_ COMPOSED_LINE ( 
8 KEYBOARD _ID.fl.r, 
KEY_TABLE_ID.rl.r, 
OUT LINE .w 


SSBIE 


t.dx 
. LPROMPT_STRING. rt.dx] 
OUT_LENGTH.wwu.rJ 
DISPLAY_ID.rl.rJ J])) 


ooo 
wn 


FORMAL PARAMETERS: 


KEYBOARD_ID A longword containing the identification of the 
virtual-keyboard from which to read. The virtual- 
keyboard is created by SMGSCREATE_VIRTUAL_KEYBOARD. 


KEY_TABLE_ID A longword containing the identification of the 
key-definition-table to be used for translating 
keystrokes. The soya det nition table-table is 

created by SMGSCREATE_KEY_TABLE. 


OUT_LINE f string into which is written the complete composed 


ne. 


ye 
le4 
' FUNCTIONAL DESCRIPTION: 


SE 
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PROMPT_STRING An optional string to be used as the prompt for the 


a ~ _ = . = — 
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1 SMGSREAD_COMPOSED_LINE 14-Sep-1984 13:09:49 SMGRTL.SRCJSMGINPUT .B32;1 (5) 

: } o? } 9 } read operation. ; 
$1 08 1 ¢ ; 4 OUT_LENGTH An unsigned word into which is written the number of ; 

: 1510 1 1} characters read or the maximum lengtn of OUT_LINE, ‘ 

3 : e : 2 } whichever is less. ‘ 

3 7 i 1 § 1} DISPLAY_ID A longword containing the identification of the : 

3 1514 1 1! ypr cused ise ‘ey in which the read is to be performed. ‘ 

; 1515 1 5 7} If specified, the read begins at the beg }nning of the ‘ 

; 1 18 1589 1! next Line after the current cursor position in that ‘ 

; 151 1590 1! por pus) -etegter If omitted, the read begins at the : 

3 7 18 tian beginning of the next line after the current cursor ; 

s 33) 19ye 63 position. ° 

; 1520 132 ;: : 

; 1521 1594 1 ! IMPLICIT INPUTS: : 

3 3 ; 1322 3 ° 
31 1396 1 | NONE : 

3 1524 tyr 61} : 

: 1525 1598 1 ! IMPLICIT OUTPUTS: : 

; 1526 1599 1! : 

; 1527 1600 1! NONE : § 
> 1528 1601 1 : 

3 1529 1602 1 ! COMPLETION STATUS: : 

; 1530 1603 1! : 

3 153) 1604 1! SS$_NORMAL Normal successful completion : 

; 1332 1605 1! SS$" CANCEL 1/0 operation cancelled (by SMGSCANCEL_INPUT) i ¢ 
: 133 1606 1 | SMGS_EOF End-of-file : § 
3 1534 1607 1! SMGS_INVDIS_ID Invalid display-id ‘ 

; 1335 1608 1! SMG$_INVKBD_ID Invalid keyboard-id : ‘ 
3; 15 $ 1609 1! SMGS$_INVKTB_ID Invalid key-table-id : 

; 153 1610 1! MGS-WRONUMARG Wrong number of arguments : $ 
; 1538 1611 1! LIBS_xxx Any error from LIBSSCOPY_R_DX ‘ 

3 1539 16l¢ 1! RMS$_xxx Any error from $GET (except RMS$_EOF) ig 
3; 1540 161 . % SS$_xxx Any error from $Q10W : é 
; 1541 1614 1 | 2 § 
3 154 1615 1 ! SIDE EFFECTS: : 

> 154 161g 1 | : 

> 1544 1617 1! NONE : 

; 1545 1618 1! : 

; 1546 1619 1 ie : 

; 1547 1620 1 : § 
Be ca : 
; 1550 16 ; FIELD : 

: 1351 1ee4 FLAGS FIELDS = : 

3 1388 16 § V_RESET_STATE = 0,1,0) : 

> 1554 16 V7SKIP_REWLINE = £6,1,1,05 : 

; 1555 1628 VSKIP™LAST_ECHO = fo -1,61, : 

: 1396 1629 V~SETPROMPT~= (0,3,1,0 : 

> 155 1630 V-ECHO_CTRLZ = £0,4,1,05 : 

; 1558 1631 TES; 2 ¢ 
; 1559 1036 e 4 
: 1560 16 LOCAL : ¢ 
; 1561 1634 KCB: REF KCB_R_KCB_STRUCT, | °§ 
: 1368 1635 KDE: REF KDE~R7KDE~STRUCT, i 
: 156 1636 KTH: REF KTHTR7KTH-STRUCT, | i¢ 
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“ NAME _PTR 
T 
¥_STATUS, 
TATUS; 
1 
1 
26, 
TCR = UPLIT BYTE (K_CR); 


BUILTIN 
ACTUALCOUNT, 
NULLPARAMETER, 
TESTBITSC, 


CALLG 
TESTBITSS; 
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Screen Man 
SMGSREAD_C 
Define Literals for the argument positions 
1 
2, 
= 4, 
Define literals for the item List positions. 
0, 
§, 
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at, SMGSREAD.COMPOSED.LINE 1e-88b2188e 99:08:05 eMGa te sRESsneiNeus .085; 1 aoe 3f 3 
: 18 ; 169% Lorne the default strings which echo for control-Z. : 
ie 18F ow ! 
3 16 5 1698 T_CTRLZ DECCRT: VECTOR C17, BYTE] PSECT (_SMGSCODE) INITIAL ( ; 
: 16 ; 5 0 K_ESC,'7', ! DECSC = Save Cursor ; 
; 1 3 if 1 RaESS et 7m". aoe qqneet ree image : 
: x ° : x : 
: 16350 17 : KAESC. fm ! Normal rendition (in case resore fails) 3 
> 1631 1704 K-ESC,°8')S i DECRC = Restore Cursor ; 
3 16 : 1205 T_CTRLZ OTHER: VECTOR C6, BYTE] PSECT (_SMGSCODE) INITIAL ( : 
: 16 4 1207 "eEXIT#")); 1 EXIT Te! : 
: 16 1709 SSMGSVALIDATE_ARGCOUNT (3,6); ; 
: 1638 ii r ; 
> 1639 171¢ i Fetch and validate KCB. ; 
co om a : 
: 1648 1715 SSMGSVALIDATE_KCB (KEYBOARD_ID, KCB); ; 
im OE 3 
> 1645 1718 i Fetch and validate KTH. : 
He ce to : 
> 1648 1721 SSMGSVALIDATE_KTH (KEY_TABLE_ID, KTH); : 
1880 1758 r 
3 1651 1724 i Assume success. ; 
Tain so 7 
> 1654 1787 RET_STATUS = SS$_NORMAL; ; 
Be MBS 7 
: 163% is Split depending on whether or not we are using RMS. : 
> 1659 17 : 
: 1660 17 5 IF .KCB CKCB_V_RMS) ; 
> 1661 1734 THEN 
Bea . 
> 1664 17 $ i Read a Line using $GET. 
et: ‘ 
ite 1140 secs 
; 16 i 1248 GET_STATUS; 
> 1671 1744 GET_STATUS = $GET (RAB = KCB CKCB_R_RAB]); 
; 1672 1745 IF ROT .GET_STATUS 
: 187% 1749 4 THEN BEGIN 
; 1675 1748 4 IF GET_STATUS EQLU RMS$_EOF 
: 1879 1750 4 RET_STATUS = SMG$_EOF 
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INE 1eagee=1SBe 98iG5:25 «— HaNGAT Obsesgsze Neo OnZ8s age 33 a 

ELSE 

RET_STATUS = .GET_STATUS; 

END; 
'¢ 
: Set BUFFER_PTR and BUFFER LEN. 4C 
i 47 
BUFFER_PTR = .KCB [RABSL_RBF); 
BUF FERLLEN = .KCB CRABSW-RSZ]; 


4 
Use $010 and do all the keypad substitution stuff. 


BEGIN 

OCAL 
CURSOR_BUF : VECTOR (15, BYTE], ' buffer for set cursor sequence 
CURSOR BUF _LEN : INITIAL (0), ! used number of bytes in cursor_buf 
FREE_COLS; ' calc. needed if display. id used 


‘4 
If the last read ended in “Z, return SMG$_EOF. 


IF TESTBITSC (KCB CKCB_V_CTRLZ)) 
RETURN SMG$_EOF ; ! End of file 


+ 
Initialize flags. 


FLAGS = 0; 
FLAGS CV_RESET_STATE) = 1; 


'¢ 
Build the item List for the QI10. 


SITMLST_INIT CITMLST=ITEM_LIST, 
(1TACOD=TRMS MODIFIERS 
BUF ADR=(TRMSM_TM_ESCAPE+TRMSM_TM_TRMNOECHO) OR 
.KTH CKTH7L_MODIFIERSJ, BOFSTZ=0) 
(ITMCOD=TRM$_PROMPT, BUFADR=T_CR, BUFSIZ=1) 
(ITMCOD=TRMS~INISTRNG, BUF ADR=BUFFER BUFSIZ=0), 
CITMCOD=TRAS INIOFFSEf, BUFADR=0, BUFSIZ=0), 


MCOD=TRMS-TERM, BUFSIZ=0, 
BUFADR=.RTH CKTH_L_TERMMASK))); 


dl wot NULLPARAMETER (K_DISPLAY_ID) 
BEGIN ! display_id present 


ility Input Procedures 16-Sep-1984 09:43:07 AX-11 BLiss-32 V4.0-74 Page 44 sri 


w+ ll Screen Rene ement Fac 
1 SMGSREAD_COMPOSED_| INE 14-Sep-1 SMGRTL.SRCJSMGINPUT.B32;1 (5) 
> 


& ’ 


uw 


Interfacing with outeyt ¢ virtual displays. Make sure user can 
net type beyond the display'’s boundaries by Limiting the input 
size to the number of free columns (allowing room for prompt, if 


any). 
Notice that we need some info from sressse? PROMPT_STRING (prompt 


' 
i 
i 
i 
' 
! string length), and we need to provide it with some info (set cursor 
: 

! 


3 17 | 

3 17 1 4 

if 1 4 
3; 17 5 | 4 

3; 17 1 4 

S| a 

: 1246 1 4 sequence, if any). So get the info here and save it. 

i ine | 
> 1745 1818 4 OUT_STATUS; 

: 1746 1 4 DISPLAY-ID_FLAG = 1; ' for quick checks Later 

> 174 1820 4 IF .KCB-CKCB_L_PASTEBOARD_1D) LSS 0 ! pb not established yet 

: 1308 i853 ¢ THEN cgi 

: 1750 18 OUT_STATUS = SMGSSGET_PASTEBOARD_ID (ZREF (.KCB CKCB_W_DEVNAM_LENGTH)), 

: 1751 1824 KCB FkCB_T_DEVNAM STRINGJ 

: 17 : 18 KCB_CKCBIL-PASTEBOARD_1DJ); 

: 173? \3 § : if NOT .OUT_STATUS THEN RETURN (.OUT_STATUS) ; 

: 1755 18 8 4 OUT_STATUS = SMGSSSET_PHYSICAL_CURSOR (.DISPLAY_ID 

> 1756 1829 4 KCB CKCB7L_PASTEBOARD_ID), 

: 1757 1830 4 CURSOR_BOF- 

: 1758 1831 4 CURSOR-BUF _LEN, 

: 1759 18 : 4 FREE_COLS); 

: 1760 1833 4 IF NOT .OUT_STATUS THEN RETURN ,OUT_STATUS; 

3 1793 Ieee END; ! display_id present 

; 1768 1836 IF DISPLAY. 1D_FLAG 

> 1765 1838 4 BEGIN ! Batching check 

Me UBS en 

; 1768 1841 4 DCB : REF BLOCK C,BYTE); 

: 1796 18e§ 4 SSMGSGET_DCB (.DISPLAY_ID, DCB); 

im iS ' 

: 1998 1968 4 i Don't allow input if display is batched. 

Si el ae . | 
; 1776 1848 4 IF ,PCBCDCB_L_BATCH LEVEL] NEQ 0 | 
: 1778 1881 4 RETURN SMG$_ILLBATFNC; 
: 1780 1888 END; ! Batching check 

1: et . 

: 178 185 i Get prompt string, if any. 

$) FEBASR) pete 9 ommeae a 

: 1786 1889 IF .DISPLAY_ID_FLAG OR 

; 1737 186) wen! NULLPARAMETER (K_PROMPT_STRING) 

: 1789 1 6¢ rs BEGIN 

: 17 186 4 LOCAL 

> 1791 1864 4 STATUS, 
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sme SMGSREAD_COMPOSED_LINE a 1 ~$007 1382 90:33:95 SMGRTL.SRCISMGINPUT .B3 31 
1738 ; NULL STRING : BLOCK (8,BYTE]; 
$37 4 NULL STRING [CDSC$B_CLASS) = DSCSK_CLASS_S; 
795 4 NULL_STRING [DSCSB_DTYPE) = DSCSK_DTYPE_T; 
7 4 NULL STRING [DSCSW_LENGTH] = 0; 
6 44 : NULL STRING LDOSCSA_POINTER] = UPLIT (* '); 
ay 4 


STATUS = SMGSS$SET_PROMPT STRING ( 
MG NULLPARAMETER (K_PROMPT_STRING) 


NULL STRING 


PROMPT STRING [ 9.0.0), 
ITEM_LIST CR_PROMPT,0.0.0.0], 
.CURSOR_ BUF _ 
CURSOR_BUF ); 


02 C9 C9 COCO CO ~~ 
GSaxas 


ONAN NSN NNO OOO 


S 


OWONA UNE WN 0 OONOULS WN" OOONOu 


IF NOT .STATUS 
THEN 


RETURN .STATUS; 
FLAGS CV_SETPROMPT) = 1; 


'+ 
Set up the $Q10W argument List. 


func) = 10$_READVBLK+10$M_EXTEND; 
= P) 
=P = XALLOCATION (BUF FER) - 4; ! Reserve 4 for term. echo 
= VU; 
KCB CKCB-L~ “P4) = 0; 
96 KCB CKCB7L~Q101-P5) = ITEM_LIST; 
9 KCB CKCBTL“Q101"P6) = ZALLOCATIONCITEM_LIST) - 4; ! Extra Longword added 
i by SITMLST_DECL. 


IF .DISPLAY_ID_FLAG 
THEN 


Coooouono 
Wwrm—OOc 


BEGIN 
IF PROMPT_STRING [0,0,0,0) NEQA 0 
THEN 


FREE_COLS = .FREE_COLS - .PROMPT_STRING CDSC$W_LENGTH); 
IF ,FREEXCOLS LEG 0 


'¢ 
} No room to accept input. Exit. 


RETURN (SMG$_INVCOL); ! improve this message later 
IF .KCB CKCB_L_Q101_P2) GTR .FREE_COLS 

KCB CKCB_L_Q101_P2] = .FREE_COLS; 
END; 
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'¢ 
! Start with a default state, indicate that the state lock is off and 
get the pointer to the next open position in the buffer. 


me ee ee ee ee a ak a a a a a 2 oe = od a a 
me ee ee me md dd od 8 od = 2d 8 dd 3 


OOOOVOOVOOVOOOOVONO 


Rom es Oo 
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CHAR BUF : BYTE 
END_ESC_FLAG : INITIAL (0); 


Co00 00 
ooo 
wr 


894 BUFFER_LEN = .KCB CKCB_W_IOSB_COUNT] + .KCB CKCB_B_IOSB_TERMLEN); 
1896 3 ! point past data & partial terminator 
$$ 0 WHILE .END_ESC_FLAG EQL 0 DO 
B96 971 BEGIN 
99 P a6 QIO_RESULT = $Q10W cre = .KCB CKCh_LAEFNI. 
900 P 197 CHAN = otce KCB_W_CHANNELJ, 
901 P 1974 FUNC = (IO$_READVBCK + IOSM ESCAPE + 
208 P 1975 1OSM_NOECHO + 10SM_ROFILTR + 
90 Pp 44: 10$M_TRMNOECHO), 
30 P 197 Pl = CHAR_BUF, 
5 P 1978 P2 = 1, 


Mm 4 
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snot? SHGSREAD_COMPOSED.LINE 7 1e-8ep- 1882 99:59:25 Hehcare saeisneineur 2033-1 9 5) 
: 1849 19 ¢ 
; 1850 19 TREY DSe pee ee Teed = DSCSK_DTYPE_T; 
; 1851 1924 TKEY_DSC [LDSCSB_CLASSJ = DSCS$K-CLASS"S; 
3 1 ¢ 1925 TKEY_DSC CDSCSA_POINTER] = TKEY; 
3; 3 2 19 § NEXT_POS = BUFFER; 
>; 1854 19 
88 oe tl a wewlaonr ig the 
3 ' Loop un a terminator is seen, composin e line. 
: 1889 1930 !- ~ . 
; 1858 1931 
; 1859 19 § WHILE 1 DO 
; 1860 19 4 BEGIN 
; 1861 1934 4 
; 1866 1935 4 4 
; 186 19 $ 4 ! Prevent last portion of Line from echoing unless Later 
>: 1864 19 4 ! shown to be necessary. 
3; 1865 1938 4 !- 
3 1808 1939 4 
; 186 1940 4 FLAGS CV_SKIP_LAST_ECHO) = 1; 
: 1868 1941 4 
3: 1869 1336 4 + 
; 1870 1945 4 ! Read the next part of the Line. 
3 1871 1944 4 le 
s 1876 1945 4 
; 187 1946 5 BEGIN 
> 1874 1947 5 LOCAL 
: 1875 1948 2 Q10_STATUS; 
3: 1876 1949 QIO_STATUS = CALLG (KCB CKCB_R_Q101), SyYS$QI0W); 
3; 1877 1950 5 IF .QI10_STATUS 
3; 1878 1951 : THEN 
3; 1879 1326 O10_ STATUS = .KCB CKCB_W_IOSB_STATUS); 
> 1880 1953 5 IF .KCB”CKCB_W_I10SB_STATUS] EQLU SS$_PARTESCAPE 
; 1881 1954 5 THEN 
3 1886 1955 6 BEGIN 
; 188 1956 6 + 
3; 1884 1957 6 ! Check for partial escape sequence in the buffer. This can 
: 1885 1958 6 ! happen if the Q10 was limited to 2 characters and_the input 
; 1886 1959 6 ! string was terminated by a keypad key (which are 3 chars). 
3; 1887 1960 6 le 
3; 1888 1961 6 
3; 1889 1006 6 LOCAL 
3; 1890 1965 6 Q10_RESULT, 
. yy 1964 6 
31 1965 6 
3 1 1208 6 
3 1 1967 6 
3 1 1968 6 
: 138 6 
3; 3 19 § 
3 1 1 
3 1 1 7 
. 1 7 
3 1 1 7 
3 1 1 7 
£. 1 7 
3; 1 1 7? 
: 1 1 7 
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et SMGSREAD_COMPOSED_LINE Pine 1e-Sep- 7 98:68:09 UOMGRTL SRC ISMGINPUT .83 31 ° (5) 
; 1963 EXITLOOP; 
: 1964 8 : f END 
; 1965 0 3 7 
: 1208 0 5 END; 
3; 196 B79 4 END; 
; 1968 ee | 
3; 1969 Beg 4 + 
3; 1970 045 4 ' Set the initial offset to iniicate the position hep he iy 
; 1971 044 4 ! where the next read should start. Set NEXT_POS to tha 
: 13%8 045 4 ! Location in the buffer. Note that NEXT_POS will then point 
; 197 nee 4 ! to the start of the terminator. Set the initial string to 
3; 1974 047 4 ! what has been typed so far. 
3 1975 046 4 le 
3 1378 049 4 
: 197 050 5 BEGIN 
: 1978 051 5 LOCAL 
: 1979 be8 5 NEXT_INDEX; ! Sey to next available position 
; 1980 2053 5 NEXT_INDEX = .KCB CKCB_W_IOSB_COUNTJ; 
3; 1981 shee 5 ITEM_LIST Said ag TTMSL-BUFADRD = .NEXT_INDEX + 1; 
: 1986 055 5 ITEM_LIST CK-INISTRNG, ITMSW Byrsizd = .NEXT_INDEX; 
: 198 2056 5 NEXT-POS = BOFFER C.NEXT_INDEX]; 
3: 1984 057 5 
3; 1985 058 5 '+ 
3 1986 059 5 ! If the buffer is now full, exit immediately. 
3: 1987 060 5 !- 
3; 1988 061 5 E 
3; 1989 5006 5 IF _.NEXT_INDEX GEQU .KCB CKCB_L_Q101_P2]) ! Buffer size 
3; 1990 2063 5 
3; 1991 2064 5 EXITLOOP; 
3 Lb 2065 4 ND; 
3 199 $pe8 4 
3 1994 067 4 '¢ : 
3; 1995 2068 4 ! If the terminator was <CR>, exit immediately. 
3; 1996 2069 4 != 
3 1997 2070 4 
: 1998 2071 4 IF CHSRCHAR(.NEXT_POS) EQLU K_CR 
3: 1999 Ore 4 THEN 
; 2000 07 : BEGIN 
; 2001 074 FLAGS CV_SKIP_LAST_ECHO) = 1; 
3 it 075 5 EXITLOOP; 
; 200 076 4 3 
; 2004 077 4 
: 2005 443 4 '¢ 
3 B06 B? 4 ! Get the terminator name, if any. 
: $008 OB 4 Pe 
: 44 O88 2 KEY_CODE = SMGSSTERM_TO_KEYCODE (.NEXT_POS, .KCB CKCB_8_IOSB_TERMLEN)); 
: 2011 084 4 1+ 
3 \§ 8 5 4 ' Reset state to default if needed. Cause state to be reset 
: 1 $ 4 ' mext time unless disabled later. 
: 14 0 4 !- 
: Biz 088 4 
: 1 3 9 4 IF TESTBITSS (FLAGS CV_RESET_STATE]) 
$ Bt 4 THEN 
: 2018 94 2 BEGIN | 
; 2019 92 TKEY_DSC_PTR = KTH CKTH_R_DEF_STATE_DESCR]; | 
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en Management Faciiity Input Procedures 16-Sep-1984 99: 
READ_COMPOSED_LINE 14-Sep-1984 15: 


TKEY.POS = .KTH CKTHADEF KEYCODE]; 


t - - .0- MG 
3:9 AX-11 Bliss-32 V4.0-74 Page 49 she 


43:07 
09:49 SMGRTL.SRCJSMGINPUT .B32; 1 (5) 


'¢ 
Construct TKEY. 
TKEY_POS COJ = .KEY_CODE; 
'¢ 
Look up key to see if it is defined as anything. 
IF (SRESSLOOKUP_KEY (.KTH, .TKEY_DSC_PTR; KDE)) 
eerie 
NEW_LENGTH: WORD; 
NEW_LENGTH = .ITEM LIST CK_INISTRNG, ITMS$W_BUFSIZ] + 
-KDE CKDE_W_EQOIV LENGTH; 
IF .NEW_LENGTA CEQuU 57 
THEN 
BEGIN 
LOCAL 
CURSOR_POS; ! Position of cursor 


+ 
! Append equivalence string to initial string. 
Current cursor position may not be at end of string. 


ITEM_LIST CK_INISTRNG, ITM$W_BUFSIZ] = .NEW_LENGTH; 
+ 
! If NOECHO, add the equivalence string size 
i to the initial string offset so that we don't 
; write it out. 
IF .KDE CKDE_V_NOECHO) 

ITEM_LIST CK_INIOFFSET, ITM$L_BUFADR] = 

~ITEM_LIST CK_INIOFFSET, ITMSL_BUFADR) + 

a ot -KDE CKDE_W_EGUIV_LENGTH) 

FLAGS CV_SKIP_LAST_ECHO] = 0; 


CURSOR_POS = .NEXT_POS - .KCB CKCB_B_ICSB_POS); 
IF, CURSOR_POS EQLA .NEXT_POS 


BEGIN 
; Cursor is at end of Line. 


NEXT_POS = CHSMOVE (.KDE CKDE_W_EQUIV_LENGTH), 
“KDE CKDE_A_EQUIV_POINTER],~ .NEXT_POS); 


SSSA AAA AAA AAA AAA AA AA AAA AAA AA AXA AMAIA ES AE EEE PEELE EEN 


[2 
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077 END 
078 ELSE 
444 BEGIN 
081 turcer is not at end of Line. Move remainder of 
oes i" Line over and reset offset to cursor position. 
084 
085 NEXT a 5 Py be ((.NEXT_POS~. CURSOR os} -CURSOR_POS, 
086 R_POS* KD .KDE CKDE-W EQUIV. LENGTH) 5; 
08 CHSMOVES RRDE W_EQUIV-LENGTH 
oes -KDE CKDE_A att) POINTER], .CURSOR_POS); 
090 1+ 
091 i If not NOECHO, move the initial offset back to where 
09 } _we need to display characters. 
09 
094 
oe i NOT .KDE CKDE_V_NOECHOJ 
2097 ITEM_LIST CK_INIOFFSET, ITMSL_BUFADRI = 
2098 T. CURSOR “POS-BUF FER )+1; 
2099 END; 
$100 END; 
101 


'¢ 
- If this key sets a new state, store it. 


BEGIN 
a a CKDE_V_LOCK] ' Locks new state? 
14 
i Select the default ae string as the 
k the basis for TKEY 
- TKEY _DSC_PTR = KTH brie ik pel scene. pestic 
BEGIN 
"Use local TKEY descriptor. Cause state to not 


a nee eee 
CSONAOUSWN—"OOONOUF wry 


) _get reset to default on next iteration. 
iKEY DSC_PTR = TKEY_DS 
e e}’s' 


AALAND $$ O ODNOAU EWN 9 ODN UE WN $ O ODNOU FWD S(O OONIA UNE WR OOOVNOUES WO 
AOEGAAOAA AA NNN NN NIAAA AAAAO OMNI NINN NNN NNN NNN NNN NNO 


ee ee a ee ed ed ed ed = = = 3 4 3 td 


PIP IMIPOPPONIPDNININPIPNOPDNNININPIPINIPIPINPIPININPIPIPNINNYD 


Be Be Se Se Oe Oe Se Fe Se Ge Be Oe Se Se BH Ge Se Be BH Se Be Be Se Se See Be BH Se Be Bee Oe Oe Oe Oe OH Oe SSE Oe Oe BESO Oe He Oe OHSS Oe OHSS See ae 


0 

1 

§ 4 Lass V-RESET_STAT 

5 9 

§ 9 TKEY_POS = CHSMOVE (.KDE CKDE_W_STATE_LENGTH), 
0 “KDE CKDE_A_STATE_POINTERJ 

8 0 KEY ste PTR COSCSA_POINTER)); 

9 8 CHSWCHAR_K (07 TKEY_POS); 

$ 8 Mei DE CKDE_V_LOCKI 

¢ 0 H CKTH_A_DEF KEYCODE) = ,TKEY 

3 0 TKEY. bec _PTR-COSCSQ_LENGTH) = .KDE rkbe: W_STATE_LENGTH) + 3; 


IF .KDE CKDE_V_SETSTATE] 
THEN 
| 
| 
} 
| 
| 
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3; 2134 7 END; 3 
5130 : 's | 
: 1 ? 19 ,_If this terminates the read, exit the loop. | : 

: 2139 1 : 
: 3140 18 IF_.KDE CKDE_V_TERMINATE) ; 7 
: 149 15 EXITLOOP; : 2 
; 214 18 s 
3 2144 1 END : 
3: 2145 Hs 4 ELSE $ 
: 138 i 5 BEGIN : 
> 2148 1 14 : 
; 198 § Key is not defined. : ‘ 
: 134 4 ; : 2 
3 126 5 LOCAL ie 
3 215 $ 6 5 CURSOR_POS; 3 § 
: 2154 ye 3 
3 2155 $$ 8 5 '+ 7 
: 138 ; 2 : Cursor position must be moved to the end of the Line. : § 
: 2158 1 5 3: e 
3 2158 ; ¢ 5 CURSOR POS = .NEXT_ POS = .KCB CKCB_B_IOSB_POS); 3 e 
; sie ; 5 ITEM_LIST CK_INIOFFSET, ITM$L_BUFADR] = i ¢ 
> 2161 4 5 T. CURSOR-POS-BUF FER) +1; 3 2 
3 slog .- a a4 
: 216 539 5 '¢ 34 
: 2164 2237 5 ! If it is *Z, then terminate anyway. 3 ¢ 
ee 5 : 
: 2167 2240 5 IF CHSRCHAR (.NEXT_POS) EQLU K_CTRLZ : 2 
3; 2168 $$e3 5 THEN ie 
Be Be seas : 
> 2171 $244 é 1+ : 2 
; 178 245 6 ! If *Z2 was the first character in the Line, : § 
3 $17 2246 6 ' return SMG$_EOF now. Otherwise, record the 3 
3 i $see ? fact that “Z was typed for use on the next read. : ‘ 
: 3176 2245 ‘ if .KCB CKCB_W_IOSB_COUNT] EQL 0 4 
: 3178 331 6 RET_STATUS = SMGS_EOF ! End-of-file ; 
> 2180 $36 é KCB CKCB_V_CTRLZ) = 1; ; 
; 2181 54 6 3 
3 136 2? ? FLAGS CV_ECHO_CTRLZJ = 1; : 
> 21 28 é EXITLOOP; : 
3; 2185 3 6 END 3 
; 189 59 6 3 
2 et 60 6 '¢ 3 
: 21 61 6 ' Else if the terminator was ENTER or DO and wasn't defined, é 
3 133 6¢ ° treat it as <CR>. : 


? a final read so that the last equivalence characters 


' 
ip 
! Cif any) will echo. Do the read with a zero-timeout so 
that we don't get any more characters. 


IF NOT .FLAGS CV_SKIP_LAST_ECHO] 
THEN 


ee 

MGS INPUT en Management Facility Input Procedures 16-Sep-1984 43:07 AX-11 Bliss-32 V4.0-74 uJ 

et READ_COMPOSED_LINE : . 1o=808- 1382 90:40:49 SMGRTL.SRCJSMGINPUT.B32;1 a 
19 3 
19 ELSE IF (.KEY_CODE EQL SMGSK_TRM_ENTER) OR * 
19 (.KEY_CODE EQL SMGSK_TRM_DO) * ¢ 
19 THEN a | 
19 BEGIN + 4 
19 FLAGS CV_SKIP_LAST_ECHO] = 1; s ¢ 
19 EXITLOOP; *¢ 
» END; : é 
: END; : 
0 END; 3 
9 + ; ‘ 
i 
2 
2 


3 6 

: 

H 4 

H 4 

3 220 

; 220 

3; 220 

5 1 

: 551 i 

3; €21 4 KCB CKCB_L.Q101_P2) = .ITEM LIST CK_INISTRNG, ITM$W_BUFSIZ); 

> 201 4 ITEM_LIST CK_TERM, [tméu_ITACOD) = TRM$_TIMEOUT; 

; 221 4 ITEM_LIST LK_TERM, ITM$W_BUFSIZJ] = 0; 

; ss 4 ITEM LIST CK TERM, ITMSL_BUFADR) = 0; 

; ; i 4 CALLG (KCB CRCB_R.Q101), SYS$Q10w); 

551 

3 222 + 

: 222 : If DISPLAY_ID was passed, call back output side to tell it 

3 $$5 ;_what changed on the screen as a result of this prompt & input. 

: dee 

3: 222 IF .DISPLAY_ID_FLAG 

; $$ THEN 

3 2 4 BEGIN 

3 222 3 4 AL 

: $6 3 4 OUT_STATUS; 

3 22 3 4 IF PROMPT_STRING (C0,0,0,0] NEQA 0 

i 223 3 4 THEN 

3; 223 3 5 BEGIN ! report rompt string change 

: 3 3 5 OUT_STATUS = SMGSSREPORT_CHANGE_REPLACE (.DISPLAY_I 

; 3 3 KCB CKCB_L_PASTEBOARD_ ID] 
3 EF (.PROMPT STRING COSC$w LENGTHI) 
: 3 -PROMPT_STRING CDSCSA_POINTER]); 
; IF NOT .OUT_STATUS AND .OUT_STATUS NEQ SMGS_STRTERESC 

; 939 5 RETURN .OUT_STATUS; 

; re 2 END; ! report prompt string change 

; 34 4 OUT_STATUS = SMGSSREPORT_CHANGE_REPLACE (.DISPLAY_ID, 

3 226 & KCB CKCB_L_PASTEBOARD_IDJ, 
3 2244 4 ZREF (.KCB°CKCB_W_IOSB_COUNT]), 
2 45 \8 4 UFFER); 

: 48 19 4 : eegert user's input string 

3 4 20 4 IF NOT .OUT_STATUS THEN RETURN .OUT_STATUS; 
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8 END; 
. 
Z If we need to echo for “Z, do it. 
4 IF .FLAGS CV_ECHO_CTRLZ) 
5 THEN 
§ BEGIN 
8 "Echo ghe Ech or nots sequence depending on whether this 
9 i isa or not. 
0 i The 2” Setaeenen can be found as translations of the 
1 i ye Logical name PT ySexit STRING (set up by SYSGEN). 
¢ It has two equivalence strings. The first one is for 
i 


DECCRT' . the second one is for other terminals. 
° 


If this logical is not defined, we use internal echoes. 


IND 
KCB_DEVDEPEND2 = KCB CKCB_L_DEVDEPEND2]: BLOCK (4, BYTE]; 


NOU 
PDRDAED PAP £ BB BE AAI IInonoponororeronn) 


WR] O ODONAUE WN 0 ODNOAOU EWN | O ODNOAOUES UN" OOONOUE Wh 


WANN NIAINA AAAI AAA AAA AANA AAAI WIAA NA AWW ANNAN 


PIPDPIPIPIPOPDPPINNYPINIPIPIPIPIPDPIPINIPINIPYNIPNIPOPIPNPONPONIPOPPoNgPonononononofrofpopofpopnoponofnorofnopnronns =u 


: 4 3 
; 4 3 
3 4 3 
3 & 3 
A 4 F 
3 4 3 
3 4 : 
3 § 4 3 
: 4 3 
3 4 ; 
3 4 $4 
: 4 $ 
: 68 4 3 
3 9 4 LOCAL 3 
: 0 4 STATUS 3 
; 1 4 ITEMLIST : VECTOR(4*3+1), ; 
: de ¢ 4 DECCRT_LEN : WORD, : ‘ 
3 ec 4 OTHER_CEN : WORD, 3 
3 2e74 4 DECCRT_PTR, : § 
3 2e75 4 OTHER PTR 3 
3 2276 4 SYSTEM TABLE : VECTOR 3 2 
3 $ 7 4 LOGICAL : VECTOR 34 
3 8 4 DECCRT ECHO : VECTORCLNMSC_NAMLENGTH, BYTE), ie 
3 § & : OTHER_ECH : VECTORCLNM$SC~NAMLENGTH, BYTE); 3 § 
: 2281 4 ITEMLIST OJ=LNAS INDEX*16+4; ; ¢ 
3 22 ¢ 4 ITEMLISTC1 }iaprul T(0); : 
: $e ‘ ITEMLISTC2 3: 
; $B¢ 4 ITEMLISTC3 =LNMS STRING*16+LNASC _NAMLENGTH; : 
3 2286 4 ITEMLISTC4J=DECCR ; 
: oe? $ ITEMLISTCS =DECERT ~EENS: ; § 
3 2289 4 ITEMLIST =LNM$_INDEX*1644; : 
3 2290 4 ITEMLISTC7J= UPLIT(1); 3 
: 4 rf: 2 ITEMLISTL8 i 3 
: 3 
; 38 66 4 ITEMLIST 95 =LNMS STRING™16+L MSC _NAMLENGTH; | 3 
+ 2294 67 4 ITEMLISTCI 10}=01 THER_E 3 
3 2295 68 ‘ ITEMLISTC11J=OTHER— ~fENS ; 
: 39 70 4 ITEMLISTL12]=0; : 
: 2299 72 & SYSTEM RCTABLEAG=URLIT OTE LANBSYSTER- TABLE) | : ‘ 
: 2300 73 4 SYSTEN TE ("LNMSSYSTEM TABLE’): 3 
3 2301 74 & OGICACEO}= FCHARTOUNT( TTYSEXIT_STRING"); 3 
; O ie 4 LOGICAL =UPLIT BYTE('TTYSEXIT-STRING'); 34 
: 5304 7? & DECCRT_PTR=T_CTRLZ_DECCRT; | 3 
} 
| 
j 


a 7 . 
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at SMGSREAD_COMPOSED_LINE wee. 127388748 4 90:48:09 YMGRTL SRE SMGINPUT.B32;1 . (33 3% 
: 2305 28 4 DECCRT_LEN=%ALLOCATION(T_CTRLZ_DECCRT); : 
; O8 4 OTHER_PTR=T_CTRLZ_OTHER; ; 
; 6 9 4 OTHER-LEN=ZALLOCATION(T_CTRLZ_OTHER); | ; 
: 09 ; 4 ! No change if logical name isn't there or ; 
; i : ? ! any other problem translating this name. : 
: i L 2385 4 XIF NOT XVARIANT : 
: §ei7 2 ¢ XTHEN 
: 2315 P 2388 4 STATUS=$TRNLNM(TABNAM=SYSTEM_TABLE, ; 
3 1 RB 9 4 LOGNAM=LOGICAC 3 
: 231 0 4 ITMLST=ITEMLIST); : 
3 18 91 4 IF .STATUS F 
3 19 3 4 THEN 3 
: 2320 93 5 BEGIN ; 
: 2301 94 ; DECCRT_PTR=DECCRT_ECHO: ; 
3 ; 95 OTHER_PTR=OTHER_ECHO; : 
: 36 4 END; ; 
: 4 397 4 3 
3; 2325 a8 ? XFI : 
: 3 $ 400 4 KCB CKCB_L_Q101_FUNC] = 10$ WRITEVBLK; : 
; 328 401 4 IF; KCB_DEDDEPERD CTT2$v_DECCRT : 
: 386 403 5 BEGIN : 
> 2331 404 ; KCB KCB_L_0101_P1] = .DECCRT_PTR; : 
; 332 405 KCB CKCBL~Q101-P2) = .DECCRT“LEN: ; 
: $337 409 2 - 
: 335 408 5 BEGIN : 
3 2336 409 3 KCB kcB_t_a101_p1] = ,OTHER_PTR; ; 
> 2337 2410 KCB CKCB7L~Q101~P2) = .OTHERWLEN: : 
: 388 ng se 
> 2340 41 4 CALLG (KCB CKCB_R_Q101], SYS$Q10W); F 
+ 2361 414 END; ; 
ce . : 
+ 2344 417 i Echo NEWLINE, if needed. 3 
we RN : | 
; $ 420 IF NOT .FLAGS CV_SKIP_NEWLINE) ; 
3 3 421 THEN 3 
: 4 é 4 BEGIN ; 
: 2350 423 4 KCB CKCB_L_Q101_FUNC] = 10$_WRI7EVBLK+IO$M_NEWLINE; ; 
> 2351 424 4 KCB KCB-L-0101-P1 = T_CR; ; 
: 3 425 4 CB CKCB7L~Q101~P2) = 13 ; 
> 235 4 : 4 CALLG (KCB”CKCB-R_Q101], SYS$QIOW); : 
: 2 " END; : 
; 36 4 $ rr : 
> 235 430 i Set BUFFER_PTR and BUFFER_LEN. : 
: $326 re is ; 
: 2360 4 § BUFFER_PTR = BUFFER; ; 
; 2361 434 BUFFERTLEN = .ITEM_CIST CK_INISTRNG, ITMSW_BUFSIZ9; | 
| 


5 
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et SMGSREAD_COMPOSED_LINE Aer 14-Sep 71382 99: 63:59 SMGRTL.SR RCISMGINPUT. 533.1 . (33 
3 435 ; 
; 6 § '+ 3 
3 ri 4 | Delete the prompt string, if any : 
: 4 : 
; +40 I FLAGS CV_SETPROMPT] ; 
; +83 via SMGSSDELETE_PROMPT_STRING (ITEM_LIST CK_PROMPT,0,0,0,0]); ; 
: 444 , : 
: 445 '¢ F 
; rr i We now have the complete Line in BUFFER, with Length BUFFER_LEN. : 
; && ! Copy it to the user's string. : 
| a fir : 
; 450 COPY_STATUS = LIBSSCOPY R_DX6 (BUFFER LEN, ; 
; 451 FFER_PTR T_LINE~C0,0,0,0)); 3 
; 438 IF F_NOT .COPY_ status ; 
: 434 RETURN .COPY_STATUS; : 
: 496 1+ : 
3 ret Fill in OUT_LENGTH if requested. : 
: 459 : 
3 3439 IF NOT NULLPARAMETER (K_OUT_LENGTH) 3 
3 461 THEN 3 
; 46 BEGIN : 
; 46 oot 3 
3 464 E_LENGTH: : 
; 465 LIBSAHAT TSE SDESC wD tout LINE C0,0,0,0]; LINE_LENGTH); 3 
3 rh IF .LINE_LENGTH LSSU .BUFFER_LEN ; 
; 468 5 R-LEN = «LINE LENGTH: ; 
3 2469 OUT PENGTH™ “BUFFER _LEN; : 
: i al : 
: 47 RETURN .RET_STATUS; ; 
; 474 1 END; ! End of routine SMGSREAD_COMPOSED_LINE ; 
OD 07a P.AAD: .BYTE 13 : : 
O7A yi LKB 2 3 
18 OO7A4 T_CTRLZ_DECCRT: : 
BYTE 27 : 3 
37 O7A5 TASCII \7\ : 3 
1B AG -BYTE 27 ; 3 
$0 37 B 7A eASCII \C7m\ : 3 
20 74 69 78 45 7AA eASCII \_ Exit \ 3 3 
8 780 -—BYTE 27 3 3 
6D 58 781 ASCII \bm\ ; 3 
18 7B3 -BYTE 2 : 3 
3 7B4 ASCII \B\ 3 3 
A} -BLKB 3 3 
2A 54 49 58 45 2A 007B8 T_CTRLZ_OTHER: : 


~™ 
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cASCII \®EXIT#\ ; : 
BF BLK 2 3 
00 00 8 700 P.AAE: .ASCII \ \<0><0><0> ; : 
8358087 re BMG: LON : : 
4C 462 41 56 SF 4D 465 54 53 59 53 24 4D 4E af icc P.AAH: ASCII \LNMSSYSTEM_TABLE\ : ; 
47 4E 49 52 54 53 SF 54 49 5B 45 24 59 54 5&4 OO7DC P.AAL: <ASCII \TTYSEXIT_STRING\ : : 
T_CR= P.AAD ; 
z -EXTRN SMG$_INVKTB_ID, SYSSTRNLNM : 
OFFC 00000 ENTRY Reenr eases COMPO ED D -LINE, Save R2,R3,R4,R5,~ ; 1524 : 
SE FBOC ce 9E 99002 MOVAB Rosh eps. : 3 
E ps 00 CLRL DISPLAY I rib FLAG : 1621 ; 
50 6 Q 3 00009 SUBB3 DIFF : 1709 : 
: $ 3B 900% BLEQU biFF. s 
50 000000006 SF 00 a02 MOVL #SMG$_WRONUMARG, RO : : 
57 04 B¢ bg OO01A 1$: MOVL @KEYBOARD_ID, KCB : 1715 : 
57 DC N b4 99 6 CPL -36(KCB), KCB ; : 
50 000000006 8F 0 99 6 2$: MOVL #SMG$_INVKBD_ID, RO 3 : 
58 08 BC b9 99 ; 3$: MOVL aKEY_TABLE_ID, KTH : 1721 ; 
SB 10 AB Db} 99 4 CMPL 16(KTH), KTH : : 
50 000000006 8F 6 005A 4$: MOVL #SMGS$_INVKTB_ID, RO : : 
14 aE 01 DO 00042 5$: MOVL RET STATUS ; 1737 3 
3 FC A? ED 00046 BLBC 8 =4 “hie ; 1733 : 
000000006 0 By PB poet CALS Bue. : 
00 30 EB 00038 BLBS a 7$ > 1745 : 
0001827A 0 Di 0096 cMPL T7STATUS, #98938 ; 1748 ; 
14 AE 000000006 06 bof MOVL unos _EOF, RET_STATUS : 1750 F 
14 AE : DO 00069 6s MOVL eer STATUS. RET_STATUS > 1752 F 
1¢ AE 38 A 09 $ % MOVL (RCB), BUFFERTPTR : 1759 : 
1 AE A? : 2 MOVW 34 (KCB) BUF FER-LEN ; 176 : 
0561 31 7 BRW 0$ : 17 : 
24 AE D4 O007A 8S CLRL CURSOR BUF LEN : 176 : 
08 FC OA? oi E5 0007 BBCC 4TKCBY, 9$ ; 1780 ; 
50 000000006 &F 0 : MOVL TSAGS EOF. RO ; 178 : 
08 4 A 9$: CLRB : 1788 ; 
08 AE 8 BISB2 #1, FLAGS : 1789 : 
5 FD90 t 91 V ITEM LIST, $$ITMBLKPTR > 1803 : 
D 3 CLRL { te KPTR)+ ; 
80 08 8 00005000 8F C9 0009 BISL3 80 8(KTH), (S$SITMBLKPTR)+ ; 
0 04 OO0A1 CLRL LKPTR)+ ; 
80 00040001 F DO O00A3 MOVL $38 if , ($$ITMBLKPTR) + ; 


ik 
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Management fect tity Input Procedure 14-Sep-19 pent Ry (SSITMBLKPTR) + : 
NPUT SHGSREAD COMPOSED LIN AA RC ; eC $S1TMBLKPTR) + ; 
sth soem noone EERE Be bone ; 
tieaned 1 aad oe +4 CURL G 1a eee FmaLKPTR* ; 
fee g BO O00BF Ctra sae ; 
ee) eee 0 
00030000 8F D ¢ A Bee SITMBLKPT 
: © 88 ¥e C006 CMPB (AP), ; 
¢ 91 0000 BLSSU 128° : 1819 
06 3 JF 0008 ISL 28 (ap : 1820 
18 AC ‘ i +. ne be DISPLAY_ID_FLAG : 1826 
a o DF -8(KCB) 3 
TL ; 1824 
6E 8 i DS O00E ced its ; 1823 
re 48 38 d00E PUSHAB  =B(KCB) 
FF OA? OF OOOEA EVIUL. 113tKCB), 32(SP) ; 1836 
re Ay 35 Gove PUSHAB #3. SNGSSGET_PASTEBOARD_1D : 1826 
20 AE 5 4 aoars Blac. Out STATUS, T1$ ; 
FC FREE CO : 
000000006 99 5 30 + $i oe eunaoe BUF _LEN 
8 AE 9F 0 19 puss cheat : 
on AP OF 00193 PUSH #5. SRGSSSET, PHYSICAL _CURSOR ; 1833 
18 AC 0D 10F CALL out STATUS, 16$ s 1 
OF OES Boise 118: eat DISPLAY ID FLAG, : 
-gecwteen ae ge OES sii eet ee B6R0). ab §PLAY_1D 
D D0 CMPL ' : 
18 BC 13$ 
8 aC = 2 a 5 CHB BCRO), #17 
' AO 91 1 BEQL 14$ $ INVDIS_ID, RO ; 
11 4G 08 3 Bat : 13$ MOVE #SMG o ee : 1849 
© he AEB Bh mine, - 
” it ns 1 e ROVE ASAGS_ILLBATFNC, RO : 1859 
0 001 RET FLAG, 17% 
a cones FE Ss Ute. 2 
re et aon a .: 
4 : 
14 238 L STRING : 187 
oe tS OGISE any, ME PARES AULLNSTRINGSE ai 
BF 00 00183 178: aie cine earn : 1878 
70 «CE aha tS CF 7: 1 PUSHAB = CURS R-BUF LEN : 787: 
08 CE F 9F 0016 pUetk, FUBSOR eur ob ; 
coe ee BF OOI8A elim He 
F MPB ‘ : 
rose tb 91 0016 Bissu 188 sf 
04 85 fF 001 TSTL = -16(A 
D 173 BNEQ 19$ 
10 85 3 176 


Screen Management 


Faci 
LINE 


50 


0000v ff 


oC 


wr 


rmo— 
on om 


20 


oou7cn 


000000006 


OFC 


6A 


000000006 


14 


7E 


7E 
7E 


04 
A 


5 
FDFC CD41 


Lity Input Procedures 


027¢ 


10 


20 


000000006 


20 


DWI M NOUS NONS NW 9 PF OF WI" DWM "DOOD - 9 0090 "FC OW 9 MO OWN OWDOM "SO -TC O 
SOMOWDWONMN LONGI (WN B FW * WOOF OMMOON | FO LOWMOWMDOOMOOMO@FLrowo—-om 


MMO NN MMMM Nh AWS NAS ANNO NFS OO "NOLS 


PF PVF PF ONINP OF JOOP V9 OF FPViswooonrwuwo 


tet ey ee 
OO S NWMO SNL AMS MOY OPIMO ONO YS NOOO MOE RUMOOFrOM RE WOME dee -—"ooO -—-— 


FPP PWIA INININININ 2 2 | | “DOCDOOT™MMNOGCVIONOCOCCWWWWO>r YP 


5 
$-Sep-19 
-Sep-19 


18$: 


a 18:68:85 


248: 


™~m 
“ 
wn 


268: 


27$: 


28$: 


298: 


30$: 


31$: 


32$: 


KUL STRING, RO 
R 


20$ 
G 


B 

rie $2 
36 (kéB) 

ITEM LIST 44 (KCB) 
#60, ~48(kCB) 
DISPLAY_ID FLAG, 26$ 
PROMPT STRING 
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0 0 
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BUFFER, NERT_POS 
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POSED_LINE 
> dB 
53 1 0 OD 34$: 
FF35 ; ; tf 
34 : p? E $3: 
iH 8 E 
10 E EB 
3¢ Di 00 ef 
05 12 002F 
6E A? 94 002F3 
¢§ 11 00 Fe 
14 AE DO OO2F8 38$: 
1F 11 OO2FC 
00000611 &F 2 D1 00 A; 39$: 
? 13 00350 
00000651 ~=—s BF 3 D1 00307 
1 is Bpee 
FDB8 CD 01 00 00310 40$ 
FDA8 CD B84 0031 
08 AE 02 88 00319 
O16 1 88 1D 41 
50 6A A C 00320 42 
FDB8 CD 01 a8 4 00324 
FDA8 CD 50 8B 88 A 
046 =#A FDFC CD40 9E 0032F 
20 =A 50 Di 00336 
Ei 1€ OO33A 
0D 046 BE 91 0033C 
3 12 00340 
01 3h 8 tg 
7E ge A7 9A 45 43%: 
0 AE OD 49 
00000000G 00 9 f 4 
18 AE 8 
08 AE 00 3 0 
5A 14 AB 
Oc AE 1¢ AB OD 
0c BF 18 AE B 65 44%: 
AD 6A 
50 ) $8 
000000006 1 
03 18 
00A6 7 
59 14 =A C 7C 458: 
FDA8 gp Al 
0200 F 0 iH 
FDA8 $ 80 
69 30 Ab 88 
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4$ 
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4$ 
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30$ 
Q10_ 
010- 
42$7 
QIO_STATUS, 39$ 
910- ATUS, #60 
38$~ 
110(KCB) 
42$ 
a9. STATUS, RET_STATUS 
QIO_STATUS, #1553 
40$7 
QIO_STATUS, #1617 
af a7 ITEM_LIST+40 
+ 
ITEM_L fersoe 
s thes 
60$ 
106 (KCB) NEXT g INDEX 
1(RO) B  tEN 
NEXT Inbex wt tis $1424 
BUF FERTNEXT ~{NDER) NEXT_POS 
NEXT_INDEX,~ 
41$ ~ 
@NEXT_POS, #13 
43$ 
59$ 
110(KCB), =-(SP) 
NEXT POS 
#2, SMGSSTERM_TO_KEYCODE 
RO, KEY_COD 
a LAGS 4$ 
3 (R11), fKEY_DSC_PTR 
(KTH), TK 
KEY CODE, STKEY POS 
TKEY_D psc “PTR, RT 
KTH, "R 


prtyygocr. KEY 


it E), R 
4 ITEM hisTs25. NEW_LENGTH 
W_LENGTH 
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ath, SMGSREAD_COMPOSED_LINE Pte 137808-1 38 99:63:05 YOMGRTL Ske SREINPUY B35; 1 3 
FDOBB CD 9 C0 96 ADDL2 R93 ITEM_LIST+#40 ; 
4 11 B R 47$ ; 
08 A 4 BA 9D 46s: BICB2 #4, FLAGS : 
5 6F AZ 9A OO3A1 478: MOVZBL 114(KCB), CURSOR_POS F 
58 04 AE 8 C3 O03A5 SUBL3  CURSOR_POS, NEXT-POS, CURSOR_POS : 
4 AE bj AA CPL CURSOR-POS, NEXT~POS : 
04 BE 18 86 § B MOVC3 9, @24(KDE), @NEXT_POS : 
04 AE DO 00386 MOVL R3. NEXT_POS : 
11 OO3BA BRB 49 ; 
53 04 =A s BC 48$:  SUBL3 CURSOR_POS, NEXT_POS, R3 r 
6948 é 0 C1 MOVC3 R3, (CORSOR_POS)> (RO)CCURSOR_POS] : 
04 AE p C6 MOVL. 3, NEXT PO ; 
68 18 86 3 0 CA MOVC3 R9, @24(RDE), (CURSOR_POS) ; 
OF 30 Ab f CF BLBS  48(KDE), 49S ; 
FDFC p 0 D3 OV B : : 
50 C2 0030 SUBL2 CURSOR.POS, RO ; 
FDBS cp 01 0 C3 00308 SUBL3 RO, #1 ITEM_L 1ST +40 ; 
4 30 Ab 4 €1 003E1 498: BBC #4, 4B (KDE), $ : 
06 0 A6 02 3 O36 BBC 3, 48(KDE). 50$ : 
5A 14 AB 9E OO3EB MOVAB (R11), TKEY_DSC_PTR ; 
09 11 OO3EF BRB ; 
SA FDDO CD 9€ 003F1 50$: MOV TKEY_DSC, TKEY_DSC_PTR ; 
08 AE 01 BA 003F6 BICB2 #1, FLAG : 
04 BA 20 «—B6 1¢ AG 28 OO3FA 518 MOVC 28 (KDE) « @32(KDE), a4(TKEY_DSC_PTR) ; 
OC AE 53 D0 00491 MOVL R3, TKEY_POS : 
0C BE 94 00405 CLRB atk : 
OC AE 06 00408 INCL _TKEY_POS : 
05 30 Ab 02 €1 004 BBC #2, GB(KDE), 52$ ; 
ic AB OC AE DO 0041 MOVL.  TKEY_POS, 28(KTH : 
6A 1C Ab 03 Ai 0041 ag3: ADDW3 = #3, 2B(KDE), (TKEY_DSC_PTR) : 
4D 30 AG 61 £0 0041A 53$: BBS #1. 4&(KDE). 60$ ; 
FOCA 31 O0061F 54$:  BRW ; 
51 6F AZ 9A 00422 558: MOVZBL 11(KCB), CURSOR_POS : 
51 046 A 51 C3 00426 SUBL3  CURSOR_POS, NEXT POS, CURSOR_POS ; 
5 FDFC CD 9E 00428 MOV BUFFER? ; 
50 31 C2 00430 SUBL2  CURSOR.POS, RO : 
FDB8 CD 01 0 C3 00433 SUBL #1> ITEM_LIST+40 ; 
1A 04 3 91 00439 CMPB) = @NEXT_POS, #26 ; 
1 Ne 043D BNEQ ; 
6A AZ BS 0043F TSTW © 106(KCB) : 
A if} 0442 BNEQ ; 
14 AE 000000006 f 00 D444 MOVL #SMGS_EOF , RET_STATUS : 
FC OA? ; Hy Bee 568: BISB ae -4(KCB) ; 
08 AE 10 88 004 $:  BISB2 #16, FLAGS ; 
14 11 004 BRB 60$ : 
O10E BF 18 AE 8 458 58%: CMP KEY CODE, #270 ; 
0 4 : BEQL 59$ ; 
0128 «8F 18 AE 8 46 CMPW = KEY_CODE, #296 3 
466 BNEQ  54$ ; 
08 AE 4 88 00468 59$:  BISB2 #4, FLAGS : 
1A Q AE 2 \ 46 60$: 5 #2, FLAGS, 61$ : 
A FDA cD ¢ 4 MOVZWL inf LASTS 24. 32(KCB) : 
FoCO 3s CD 00020000 bf 06 47 #131076, IIGA_LIST#48 ; 
000000006 00 6? FA tbe CALLG (KCBY, ay sg510w : 


oo 
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pat, SMGSREAD_COMPOSED_LINE : 12-80-1882 99:60:99 SMGRTL.SRCJSMGINPUT.B32;1 (85 
488 61$: BLBC DISPLAY_ID_FLAG, 63$ : 229 if 
34 10 he 69 aR : MOVL PROMPT STRING, Ro ; 3838 : ¢ 
24 13 004 BEQL 62 : : 
04 Ad D 0049 PUSHL  4(RO) : 3309 :¢ 
1c AE 60 3C 00497 MOVZWL (RO), 28(SP) : 2308 i 
IC AE OF 00498 PUSH 28 (SP) : 4 
FB OA? OOF Ht PUSHAB -8(KCB) : 2307 2 
18 AC DD OO4A PUSHL DISPLAY 1p : : 
000000006 00 4 FB O0GA4 CALLS #4, SMGSS$REPORT_CHANGE_REPLACE ; i ¢ 
OA 0 € O4AB BLBS OUf_STATUS, + 2310 i ¢ 
000000006 8F 30 D4 iss cHPL QUT -STATUS, #SMG$_STRTERESC ; ; 
FDEC CD OOF a8 628:  PUSHAB BUFFER : 231 34 
“« 6A i? C bape MOVZWL 106(KCB), 28(SP) : 231 i 
iC AE 9F 004C1 PUSHAB 28(SP) : z 
FB A? OOF 00464 PUSHAB =8(KCB) + 2316 
ge ee Pe ere, EATS BLP ettadBeponr_coance_nencace | : 
Sete 5 5 a} 0401 BLBS OUT_STATUS, 6387 : ; 2320 i 
04 00404 RET : : 6 
03 08 AE 0008 £0 405 638: BBS a4 FLAGS, 64$ ; 2327 $4 
0244 CE 00010004 8F D0 004DD 648:  MOVL #65540, ITEMLIST : 3354 
vase ce phee «Ee hes GEKRP Fat cpg ae 
0250 CE 00020088 SF DO O04F1 MOVL Lremis ITEMLIST+12 > 2358 
0254 (CE 0134 CE 9E OO4FA MOVAB DECCRT_ECHO, ITEMLIST+ : 2359 
0258 CE 2¢ «AE «SE 00501 MOVAB DECCRTULEN ITEMLIST+20 : 2360 
025c CE 00010004 BF D 00507 MOVE #65540, TTEML STs 4 : é 6¢ 
se. babe te i boats CURL ITEM { 1389 > 2364 
68 CE 000200FF SF DO 0051B MOVE «#181827, ITEMLIST#36 : 2366 
$5ee CE 4 AE 9E 00524 MOVAB OTHER_ECHO, ITEMLIST+40 : 2367 
0270 CE 0 AE 9E 0052A MOVAB OTHER-LEN, ITEMLIST+44 : 368 
0274 CE 04 00530 CLRL _—s«dITEMLTST+48 : 2370 
023c CE 10 00 005 MOVL #16, SYSTEM TABLE : 372 
40 CE FAAS CF 9E 00539 MOVAB P.AAH, SYSTEM_TABLE+4 : 237 
$58 CE OF D 9940 MOVL #15, LOGICAL : 2374 
0238 =¢ FAAS CF 9E 0054 MOVAB P.AAI, LOGICAL+4 : 2375 
§ FA69 CF OSE 00540 MOVAB T cTRLZ DECCRT, DECCRT_PTR : 2377 
= 2 11 1 MOVW #17, DECCRT_LEN : 2378 
85 FA74 CF 5 MOVAB T_CfRLZ OTHER, OTHER_PTR ; 2379 
30 «AE 06 2 A MOVW #6, OTHER_LEN ; 2380 
0244 cE F PUSHAB ITEMLIST : 2390 
E 04 36 CLRL = = (SP) : 
0 3 CE 9F 00564 PUSHAB LOGICAL : 
048 OE be onset CA PP 
commons eB RE eran ar 
3 0134 CE 9€ 0057 MOVAB DECCRT ECHO, DECCRT_PTR ; 334 
4 & 70 MOVAB OTHER CHO OTHER_PTR : 2395 
oc A D 1658: MOVL #48, To(KCB) : 2400 
Jee: BB eat HD then a 
10. OA PTR, ; 
20 «A? 2c AE OC E MOVZ2WL DECCRT“LEN, : (KCB) ; 208 


a a 


Se —— — c= 


Mn 


Page 


3.1 


7 
A: | 


AX=11 a a pe v4.0 
SMGINPUT 


SMGRTL.SRC 


t 


acility Input Procedures 
INE 


4 nt F 
POSED_L 


Screen Manageme 
SMGSREAD_CO 


pay 


SMGS 
2-01 


—COMOoOM THOM TON — 

SOK KNNNNINIMPIM TO Wo 
in >_Si>__t_>_Si>_>_So_Si_S_ a zw 
NONINIOUEINIEIEUNIONONIN ON wm 


Terer er er er et eT eT eT eT eT eT eT eT eT eT eee er ere ere ere er ee er a 


oO 
za 
— 
i+ 4 
_ 
2 ” 
w v = 2= 
endl - w we 
i a =a wD 
a = N i i 4 
w o =< &- ow 
alae cu i: 4 iw wos 
oom a a wow wa w© 8 
wu a> 4 ol yy ue ue 
~~ Ss F 4 [+s] w om we ofa 
-~Oen- <- fF &- -—Oxr a-@O Woo 
owe-OO- ww Oo ww Feo “no ex 
WNGOYO Guwzsrewiitw ts. Oo @s ba 
A MYR Burm e—wae + aw Suwrt Tse 
. OO wwtOwD+s ++0O &Z OO Ne Zw 
S2Z>nurvo-@Or-wr-A se w>r- > 9 Own 
K—wOMwoe-@Ownwn nMowMmewa uwaan woswe ZA 
aw <« Nw we OZ | Ors 2aq2zw w 
Pees WN Cysts Zeeecvuw a SZ Ue 
eenun Mnw & Mowws t+ A ici | ww 
wwe ree Oukzt = &uert>n << we w wu | 
PTI Ov sCuw ww uuDMaa#e~-es-@ -ZH Zur 
Ree ee — OEE DTD FD HO BNNON Dt te DW 
wooOow~ Bk? 2~O- 28-2 OOD Jowrr- or. 0 Yt Uwe 


COOOCOCOCOCOCCOOOGOOOOCOOGCOOOOCCOOOOOOSoOOoOoOSooSo 
pee we we wee ew) el www) wheelie elelelelelelelaeleleleleleleleo) 


—OVIOVWO LWO 4 DOOVOC KK Umm owoo-wooor, 
—QMu WMO Ou Ow u OOM we O- O- OD DDOA0O 
Onur, — wee COOMA VWWOOVR VUVUOr OrOww 
OWN Lt OODVOOVVOVO I et LONOVE LOMMON 


Vv 
oa 
a 
we 


soon 


17 


_SMGSCODE + O7EB 


CU 
w 
BJ 
@ 
ev 
c 
- 
w 
P= 
o 
tL. 


1563 bytes, 


; Routine Size: 
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MGSINPUT reen Management Facility Input Procedures ihese -1984 43:07 AX-11 Bliss-32 V4.0-74 
et GSDELETE. TRTUAL_ KEYBOARD r 1a-Sep- 7 90:68:49 SMGRTL. RCISMGINPUT .B3 31 
403 7 ZSBITL ‘SMGSDELETE_VIRTUAL_KEYBOARD' 
404 7 GLOBAL ROUTINE SMGSDELETE JIRTUAL Meenas ( 
che KEYBOARD. 1D: REF VECTOR C, LONG 
407 7 
408 8 144 
ret 4 FUNCTIONAL DESCRIPTION: 
411 8 i This routine deletes a q\ttvel “hexboare which was irestee by a call 
re 8 : to SMGSCREATE_VIRTUAL_KEYBOARD. Any terminal attributes changed 
41 8 ! when the virtual-keyboard was created are reset to their previous 
414 § ! values. 
415 ' 
218 : CALLING SEQUENCE: 
418 9 i RET_STATUS.wilc.v = SMGSDELETE_VIRTUAL_KEYBOARD ( 
e419 3 ; KEYBOARD_IC.rl.r) 
3 FORMAL PARAMETERS: 
158 9 i KEYBOARD_ID A longword containing the identification of the 
sis g virtual-keyboard which is to be deleted. 
3436 9 i IMPLICIT INPUTS: 
427 9 } 
seso 8 NONE 
$288 0 i IMPLICIT OUTPUTS: 
tt 0 : 
$36 0 ! NONE 
43 0 ! 
rr: 8 COMPLETION STATUS: 
ie 
: at 
$¢ 1 i 
1 ! 
1 ! 
1 ! 
1 : 
1 ! 
1 ! 
1 
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PUPP DUP PUPP PVPS SUPP SISTA BS PPP PPP PPP PPL PLETE EO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SS$_NORMAL Normal successful completion 
37 SMGS_INVKBD_ID Invalid keyboard-id 
$ SMG$_WRONUMARG Wrong number of arguments 

sect SIDE EFFECTS: 

244 The keypad mode (numeric or application) is reset to its original state 
44 The terminal characteristics are reset to their original state 
ree! The file is closed or the channel is deassigned. 

44 -- 

44 

448 BEGIN 

449 

450 LOCAL 

$23 KCB: REF KCB_R_KCB_STRUCT; 
$37 SSMGSVALIDATE_ARGCOUNT(1,1); 
455 '¢ 

45 ! Fetch and validate KCB. 

ret a 

459 SSMGSVALIDATE_KCB (KEYBOARD_ID, KCB); 
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MGSINPUT Screen Management Facility Input Procedures 16-Sep-1984 43:07 AX-11 Bliss-32 v4. p 5 
smote SNGSDELETE. VIRTUAL. KEYBOARD > : Veasee~tBBe PGiG5:2h — FaNGAT Obsagsze Ne On 78s age 83 
3; 24 
: ue BE 
3 re : t Invalidate the user's KEYBOARD_ID. 

: 2464 : 
3 rt é KEYBOARD_ID (0) = 0; 
: 467 14 
3; 2468 540 i Call SMGSSCLEANUP to do the actual close, etc. 
3 rh ae 1 Return with success. 
: 2471 548 
: 4? 344 RETURN (SMGSS$CLEANUP (KCB CKCB_R_KCB], SS$_NORMAL)); 
: 2674 58e 1 END; ! End of routine SMGSDELETE_VIRTUAL_KEYBOARD 
0100 0000 -ENTRY SMGSDELETE_VIRTUAL_KEYBOARD, Save R8 2476 
01 6C 91 0000 CMPB (AP), #1 2525 
08 13 0000 BEQL 
50 00000000G 8F Bd 3000 MOVL #SMG$_WRONUMARG, RO 
58 04 BC 00 Bo00 1$ MOVL @KEYBOARD_ID, KCB 
06 13 0001 
58 bc A8 D1 0001 -36(KCB), KCB 
08 13 0001 BEQL 
50 00000000G 8F 44 9901 2$ mov #SMGS$_INVKBD_ID, RO 
04 BC D4 8095 3$ CLRL @KEYBOARD_ID 2537 
50 01 DO 0002 MOVL #1, R 2544 
OO00V CF 00 FB 0002 CALLS #0, SMGSSCLEANUP 
04 0002 2546 


; Routine Size: 47 bytes, Routine Base: _SMGSCODE + 0E06 
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Note that VT5x keyboards do not have all of these keys. 


When a virtual-keyboard is created, the terminal is set by default 
to applications mode. When the virtual-keyboard is deleted the 
state of the keypad is restored to its previous mode, as determined 
by the terminal characteristic TT2$V_APP_KEYPAD. 


CALLING SEQUENCE: 


RET_STATUS.wlec.v = SMGSSET_KEYPAD_MODE ( 
KEYBOARD_TO.rl.r, 


NEW_MODE=rl.r) 


ae aan thbant ae 
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MGSINPUT Screen Management Facility Input Procedures 1-50 -1984 00:43:07 AX=11 Bliss-32 V4.0-74 Page mM 
ett SMGSSET_KEYPAD_MODZ Ares 12-Sep-19 4 90:68:09 SMGRTL.SRCJSMGINPUT.B32;1 . 3 =( 
: 2676 47 1 XSBITL 'SMGSSET_KEYPAD_MODE® | 3 | 
3: 247 Pr 1 GLOBAL ROUTINE SMGSSET ills MODE s 4 
; of8 49 1 KEYBOARD_ID: REF VECTOR [7 LONG], + ¢ 
: 247 0 1 KEYPAD_MODE: REF VECTOR [, LONG + ¢ 
: 2480 24 )s | 3 
: 2481 1 | 
: 24 § 1 te¢ | 2 4 
s S68? ¢ |; FUNCTIONAL DESCRIPTION: | 4 
; + 4 
3: 2485 336 1 This procedure sets the state of the terminal's numeric keypad to either | + ¢ 
: 24 557 1 applications mode or numeric mode. In applications mode, numeric | 
3: 24 228 1 keypad nove (which may also include pene suet ven keys) are considered | + § 
3; 24 1 function keys and are useable as terminators. In numeric mode, these 4 
; 2489 560 1 keys are equivalent to the keys with similar legends on the main . 
3 re 2) ’ key array and are not generally useable as terminators. a ¢ 
; s 4 
: 138 208 1 For VTSx, VT1xx (and compatible LAxx), and LK201 keyboards, the 4 
3: 249 564 1 following table Lists the legends on the keypad keys, their key name 4 
3 re 30? : in applications mode, and their key value in numeric mode: 4 
3 $4 
: 2496 567 1 Legend Applications Numeric 4 
; rp a : : On Key Mode Mode ‘¢ 
: 2499 570 1 0 KPO 0 :} 
; 2500 571 1 1 KP1 1 i 3 
: 9501 572 1 2 KP é 4 
3 4 5 1 KP . i 
3 250 574 1 4 KP4 4 oy 
: 575 1 5 KP5 5 ¢ 3 
; 6 1 6 KP6 6 - 3 
; 7 2 7 KP7 7 a 
; Ss F 8 KP8 8 3 
; 9 1 9 KP9 9 ij 
; o 7 ~ MINUS - e 4 
: 1 : OmMM e 4 
; : 1 ENTER T <CR> 3 ; 
3 4 1 o 3 
; 5 1 e 4 
3 6 1 - y 
3 aA oy 
3 8 1 e 3 
3 9 1 e 4 
3 0 1 ey 
3 9 ey 
3 ¢ 1 ‘4 
; 1 ‘1 
: 4 1 - 3 
: pe - 3 
; $ 1 -j 
3 1 ey 
; 1 ‘4 
3 1 oy 
; 1 2 
; : oy 
3 1 3! 
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600 KEYBOARD_ID A longword containing the identification of the | 
601 virtual-keyboard for which the keypad mode is being 
Hy one set or returned. 
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SET_KEYPAD_MODE 


oa 


Uw 


H 
16- 
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KEYPAD_MODE A longword whose low bit is used to set the new 
state of the keypad mode 


keypad is set 
keypad is set into 


If the low bit is set, the 
If clear, the 
plications mode. 


nto numer 


mode when a virtual 


applications mode. 


IMPLICIT INPUTS: 


PAA AAAAAOAS OO 


NONE 


IMPLICIT OUTPUTS: 


CONOUEW"ODOONOu 


Ft ss ss OOD 


NONE 


COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 


PUPP PVSPVSISISISIIIIIIVIY 


WAT Tw LSP a a? et et ot et et et et 


ee ee ee 


PAEXAEAAAAAAAAAAO 


WAI AAIAWIInononononornoronofnony 


WN SO OOBNOUES WN OO ONOULSWN OOM 


AAACOUMIUIVIUIM 


WO OCONOULS WN“ OODONOUSWwN—O 


Pe rw 


o 
= 
S 


oa 
= 
“ 


SSN H IN ISSE SE 


swab ab Ab th sh dh dh dh bh bh hb db db ab 4b 4b 4b db 4b 4b 4b ob 4h Ah ah Ab dh Ah al 
Wn —O0@ 


i 


“ 
PAAAASA ASA ASS 


PUPA PISS 


SUS 


WEAN ALALALAPIPIPIMMPIMPIPINIMIPIPIMMPININPINPINININ IAN IN IAI a rk tk at td 2 ot td dd 


PANAMA 
@ 
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SMGS_INVKBD_ID Invalid keyboard-id 


eyboard is created is 


SMG$_WRONUMARG Wrong number of arguments 
SIDE EFFECTS: 


NONE 


BEGIN 


LOCAL 
KCB: REF KCB_R_KCB_STRUCT; 


BUILTIN 
CAL 


SSMGSVAL IDATE_ARGCOUNT (2,2); 

1+ 

Validate Keyboard Control Block 
SSMGSVALIDATE_KCB (KEYBOARD_ID, KCB); 


'+ 


Only change the keypad mode if we're at a terminal. 


IF NOT .KCB CKCB_V_RMSJ 
THE 
BEGIN 


IND 
KCB_DEVDEPEND2 = KCB CKCB_L_DEVDEPEND2): BLOCK (4, BYTE]; 


'¢ 
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; Select whether we want to set or clear applications mode. 
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SNGSSET_KEYPAD. MODE Pioatoaes ures 422858=188% 99:53:25 . 


IF .KEYPAD_MODE (0) 
THEN 
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BEGIN 
Set applications mode. 
1+ 
Mark the keypad as in applications mode. 
KCB_DEVDEPEND2 CTT2$V_APP_KEYPAD] = 1; 
1+ 
Choose the proper control sequence to send. 
IF .KCB CKCB_V_KPDSEQ_DECCRT] 
THEN 
BEGIN 
Use sequence for DECCRT and VT5x. 
KCB CKCB_L_Q102_P1] = T_KPDAPP_DECCRT; 
KCB CKCB-L7Q102-P2] = XALLOCATION(T_KPDAPP_DECCRT); 
ELSE SELECTONEU .KCB CKCB_B_DEVTYPE] OF 
COTHERWISE): 
BEGIN 
Unknown type. 
KCB CKCB_L_Q102_P1] = 
ce KCB_L_Q102_P2] = 0; 


TES; 
END 


BEGIN 
Set numeric (non-application) mode. 


+ 
: Mark the keypad as in numeric mode. 


KCB_DEVDEPEND2 CTT2$V_APP_KEYPAD] = 0; 


'¢ 
Choose the proper control sequence to send. 


IF .KCB CKCB_V_KPDSEQ_DECCRT) 


SMGRTL. SMGINPUT .B32;1 


Bee Se Ge Be Se Be Be Ge Fe Se Ge Se Ge Ge Be Se Se Se Se Ge Se Ge Se Se Se FH Se Se Se Se Se Se Se Se Se Fe Se Ge Ge Se Se Se Oe Oe Se Se Ss Ge Oe Se ee ee 


rororor 
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cs 
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PIMPIN ANA AA. NANA. ANA AAA MAAN. A. ANNAN AAA BST BS BF BP TUTTO 


THEN 
BEGIN 


. "use sequence for DECCRT and vT5x. 


KCB KCB _L_Q10 T_KPDNUM_DECCR 
KCB KCB-L-Q102-P2) = = XRLLOCATION(T RRPDNUM. DECCRT); 
ELSES SELECTONEU ROB seapeesate OF 
OTHERWISE): 
BEGIN 
- Unknown type. 
KCB (KCB_L_Q102_P1] = 0; 
KCB KCB-L~Q102-P2) = 0; 


tes;° 
END; 
'+ 
1 Write the sequence to the terminal. 


KCB CKCB_L_Q10 =f yNCd = J10$_WRITEVBLK+10$M_NOFORMAT; 
KCB CKCB-L-Q102"P 0; 

KCB CKCB-L-Q102"P4) = 8 

KCB CKCB-L"Q102"P5] = 0; 

KCB CKCB°L-Q102"P6 9: 

CALLG (KCB CKCB_R "a102 SYSS$QIOW); 


'¢ 
4 Set the new characteristics. 


KCB CKCB_L_Q102_FUNC] = I0$_SETMODE; 

KCB CKCB7L~Q10 pi] = KCB CRCB_R_TERMCHAR); 
KCB CKCB-L_Q102-P2) = KCB_S_TERMCHAR; 

CALLG (KEB"CKCB-R_Q102], SyS$Q10w); 


'¢ 
5 Rae that the terminal characteristics have been changed. 


KCB CKCB_V_CHARS_CHANGED] = 
END; 


RETURN SS$_NORMAL; 


! End of routine SMGSSET_KEYPAD_MODE 
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134 bytes, 


3 000000006 


50 000000006 


00 


iY 


52 04 BC 
52 dC Ke 

50 000000006 BF 

54 ff Ag 

1 8 C 

Fo OA 0 F 
FC UA 3 
50 A F18B cf 
Fo OA 80 ef 
FC UA 3 
50 A FI7D—sCF 
54 OA 8 
0 

3 Ae 

40 A2 01 8 8F 
5 A 

0 A 

63 4 A 

40 . 2 
50 A EC Ae 
54 ag oC 
6 34 A 

FC A 04 
50 01 
Routine Base: _SMGSCODE 
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-ENTRY SMGSSET_KEYPAD_MODE, Save R2,R3 
MOVAB sys$al0g, R3 
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#SMGS_WRONUMARG, RO 
@KEYBOARD_ID, KCB 
7go(KcB). KCB 
¥SMGS_INVKBD_ID, RO 


asa ‘MODE. Pa 
#1 


4(K Kee) 
T KPDAPP cet 80(KCB) 


#128, -10(KCB) 
#3, — 


KCB), 6$ 
T_KPDNUM DECCRT, 80(KCB) 
he 


(KCB) 


oesece 
#304, 64(KCB) 


(K¢B) 
K 
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NPUT Mortis 


ZSBTTL ‘SMGSCANCEL INPUT’ 
GLOBAL ROUTINE SMGSCA Aneel INPUT ( 
KEYBOARD_ID: REF VECTOR C, LONG] 


‘+4 
| PRTC. DESCRIPTION: 


i pore? a a Serptnett n 
n= 


a termina Bre which was issued by 
Snodren AD STRING or SMGSRE = COMPOSED. LINE. If t 
virtual-Keyboard is assoc iat ed with an RMS f le. “tats procedure 
has no effect, since $s not possible to cancel an outstanding 
RMS input operation. 

{| CALLING SEQUENCE: 


RET_STATUS.wilc.v = mee INPUT (¢ 
YBOARD_ID.rl.r) 


{FORMAL PARAMETERS: 


KEYBOARD_ID A longword containing the identification of the 


virtual keyboard for which the input is to be 
cancelled. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SS$S"RMSNOTCAN Success - RMS operation cannot be cancelled 
SMG$_INVKBD_ID Invalid keyboard-id 
SMG$_WRONUMARG Wrong number of arguments 
SIDE EFFECTS: 


NONE 


BEGIN 
LOCAL 
KCB: REF KCB_R_KCB_STRUCT, 
CANCEL_STATUS; 
SSMGSVALIDATE_ARGCOUNT(1,1); 


'4 
i Validate Keyboard Control Block 


SMGRTLS Re 


AS - is 7 


s$-32 V4.0- 35. 
SMGINPUT .B32;1 (8) 


iz 
ane 


Sete Se ee HH Se Se Oe Se Se Se Se Se Se Se Se Se Se ee Se Se Se Se se Se Se Se eeee Se Se ee tee 
6 ofé off oBd 248 oBO 86 oDO 28d 28d 286 286 208 oS 28d 206 2 BO oO 286 246 286 286 286 28s 286 2 OS oS os 2s 2S oS oA OO os 


=o 


3; Routine Size: 


x 9 
onent Facility Input Procedures 2 7 AX-11 Bliss-32 V4.0-74 
*YNPU Pree 12: 338: 1382 00:48 05 SMGRTL SRE SheINeur. B32;1 


SSMGSVALIDATE_KCB (KEYBOARD_ID, KCB); 
1+ 
Only cancel input if we're at a terminal. 
IF NOT .KCB CKCB_V_RMSJ 
THEN 
BEGIN 


cancel STATUS = S$CANCEL (CHAN=.KCB CKCB_W_CHANNEL)); 
IF NOT’ .CANCEL_STATUS 


THEN 
RETURN .CANCEL_STATUS; 
ND; 
RETURN SS$_NORMAL; 
END; ! End of routine SMGSCANCEL_INPUT 


-EXTRN SYSSCANCEL 


0000 00000 .ENTRY SMGSCANCEL_INPUT, Save nothing 
01 6c 91 0000¢ CMPB CCA), #1 
08 13 0000 BEQL 
50 000000006 8F v6 9007 MOVL #SMG$_WRONUMARG, RO 
50 04 BC 09 OOOF 1$: MOVL § @KEYBOARD_ID, KCB 
6 1 901 BEGL 
50 pc Ad D1 1 CMPL =-36(KCB), <CB 
0 13 or BEQL 
50 000000006 8F v6 4 2$: MOVL #SMG$_INVKBD_ID, RO 
3 FC AO 58 $0 3$: BLBS -4(KCB 
7E D4 = AO 0 CVTWL maak ah (3p) 
000000006 00 gi FS 0 CALLS SYSS$CA 
0 0 €9 000 BLBC CANCEL ST Nine 5$ 
50 01 DO 00035 4s: MOVL #1, R 
04 00038 5$: RET 


Routine Base: _SMGSCODE + OEBB 
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att, SAGSSSET PR PT_STRING Pes 1228071382 99:59:29 SMGRTL.SRCISMGINPUT -B3 31 ° (9) 

: 2780 49 1 ZSBITL "SMGSSSET_PROMPT_STRING' : 
; 2781 1 ROUTINE SMGSSSET_ PROMPT oreiMe ( : 
3 7 ¢ 1 PROMPT _STRING: REF BLOCK C, BYTE) ! Prompt string descriptor ‘ 
3; e7? § 1 ITEM_LIST: REF SITMLST_DECL (ITEMS=1), ! Prompt string List item : 
; 2? 1 PRE _BUF LEN, ! Pre=prompt buffer Length : 
; f 5 2 ! PRE BUFFER ! Pre-prompt buffer : 
3; 27 § 1 3 
; 2788 1 !+4 : 
; 2789 28 1 ! FUNCTIONAL DESCRIPTION: : 
: 2790 859 1! ; 
: 2791 60 1! This procedure adds the necessary carriagecontrol to the user-specified : 
: re o ' } prompt string and stores it in an item-List descriptor. : 
3: 2794 B68 1 ! CALLING SEQUENCE: : 
3; 2795 864 1! ; 
: 279 865 1! ret_status.wlc.v = SMGSSSET_PROMPT_STRING (prompt_string.rt.dx, ; 
: 279 £08 1! item_list.ww.r, ‘ 
3 2798 867 1! pre_buf_len.rl.v, ; 
: 2799 868 1! pre_buffer.ra.r) : 
; 2800 869 1! : 
2 Ht ayy : FORMAL PARAMETERS: ‘ 
3 rit 1h; : PROMPT_STRING The descriptor of the prompt string. ‘ 
; 3805 1h) : ITEM_LIST The Q10 item-List entry for the prompt-string. ; 
3 $60 are , 7% PRE_BUF _LEN Length of buffer to insert before the prompt ‘ 
; Spe 144 : string. (Used when interfacing to virtual display.) . 
3; 2810 879 1! PRE _BUFFER Address of eteing to insert before the prompt ‘ 
3 He seat : } string. (Used when interfacing to virtual display.) : 
3 B18 Ht) 1 ! IMPLICIT INPUTS: ; 
3 2814 883 1! : 
; 2815 884 1! QPS_QUEUE Queue of prompt strings : 
: 2816 ath . ; 
3; 2817 ny 1 ! IMPLICIT OUTPUTS: : 
; 2818 sas 1! : 
3; 2819 888 1! NONE ‘ 
; 2820 889 1! : 
; 2821 a20 ! } COMPLETION STATUS: : 
; S z B36 1; SS$_NORMAL Normal successful completion : 
3 2824 ms it Errors from LIBSGET_VM : 
: 2825 9% 1! : 
; $ 95 1 ! SIDE EFFECTS: : 
3 38 7 3 ‘ 
3; 28 3 97 1! None : 
: 38 3 fi 
3 0 99 1 !-- : 
3 2831 0 1 ‘ 
; 28 § 1 BEGIN : 
: 583 308 
: 4 9 LOCAL ‘ 
3: 2835 904 STRING_LEN: WORD, ' Length of PROMPT STRING : 
3; 2836 905 STRING_PTR, ! Pointer to PROMPT_STRING : 


SU ENIEneeeetinemee ene 


7 
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et SNGSSSET PR MPT_STRING Ste 12-8 08- 1 3b 90:63:05 SMGRTL.SRCISMGINPUT .B3 31 oes (9) 

3 7 9 $ ALLOC_LEN, ! Allocated string Length ‘ 
$ 8 9 ALLOC-PTR ! Pointer to allocated string 3 
: $873 2 8 ANL_STATUS, VM_STATUS; ! Status from called procedures : 
> 2841 910 LITERAL : 
; r ae K_CR = 13; ! <CR> : 
: 2844 318 BUILTIN ; 
3; 2845 914 REMQUE; 3 
a. ie : 
; see si Analyze PROMPT_STRING to get the length and address. 
: 2850 91 : 
; 2851 920 ANL STATUS = LIBSANALYZE_SDESC_R2 (PROMPT_STRING (0,0,0,0]; 
3 B26 921 STRING_LEN STRING_PTR); 
; 285 9 é IF NOT .ANC_STATUS 
3; 2854 9 THEN 
; 3855 4 4 RETURN .ANL_STATUS; 
: 2857 9 6 ALLOC LEN =. . STRING LEN, + 1; 
3 $3 2 4 ud jACLoc_ten GTRU 65535 
: 2860 929 RETURN SMG$_PROTOOLON; ! eee string is too long 
; 2861 930 ITEM_LIST CO,1TA$W_BUFSIZ) = .ALLOC_LEN; 
: 86¢ 331 ALLOC_PTR = 6; 
; Sei 338 ‘+ 
: 2865 934 iif ALLOC_LEN is small enough so that we can get the string from 
: 2866 ye2 ' our queue, do so. 
: S8ee 339 as 
> 2869 338 IF .ALLOC_LEN LEQU (K_QPS_SIZE - 10) 
: are 320 THEN GIN 
: b7¢ 41 IF REMQUE (.QPS_QUEUE [0], ALLOC_PTR) 
> 2874 943 & BEGIN 
; 2875 944 & ALLOC_PTR = 0; ! Failure 
; 2876 945 4 ALLOC_LEN = K_QPS_SIZE; ! Allocate a full QPS entry. 
: 2877 94 END; 
: 578 94 END; 
: $8r) rk} ‘+ 
: Hl 324 If pointer is still zero, we have to allocate the string with LIBSGET_VM. 
; 95 
3 33 IF .ALLOC_PTR EQL 0 
3 5 954 THEN 
; Bee BEGIN 
; 9 4 VM_STATUS = LIBSGET_VM (ALLOC_LEN, ITEM_LIST CO, 1TMSL_BUFADR)); 

; 9 IF"NOT .VM_STATUS 
: 9 3 THEN 
; 90 9 RETURN .VM_STATUS; 
> 2891 960 ALLOC_PTR = .ITEM_LIST CO,1TMSL_BUFADR); 

: 3 96 END; 
3; 289 962 
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1 SMGSSSET_PROMPT_STRING . 1 ~$00n 138% 00: b8:05 SMGRTL. RCISMGINPUT .B3 31 . (9) 
> 2894 963 + 
3 33 age } Store the prompt string with a leading CR for carriagecontrol. 
; 289 ae8 ! If input is aed with output SMG$ routines (ie. a virtual 
; 2898 96 ! display present), use the caller's buffer instead of CR. This 
: 99 968 ' buffer should contain the set cursor sequence to establish the 
: 2900 392 ' desired cursor position. 
3 1 970 = 
; 290 971 
; 290 af¢ ITEM_LIST CO,ITM$SL_BUFADR] = .ALLOC_PTR; 
: 2904 97 IF .PRE_BUF_LEN EQC 
3; 2905 974 
; 906 975 CHSWCHAR_A (K_CR, ALLOC_PTR) 
: 290 44 
: 308 as ITEM_LIST CO, ITMSW_BUFSIZ) STRING_LEN PRE_BUF_LEN 
© =. v . > 
; 910 979 ALLOC_PTR = CHSMOVE (.PRE_BUF_LEN, .PRE_BUFFER,~ .ALCOC_PTR); 
$ aig 981 CHSMOVE (.STRING_LEN, .STRING_PTR, .ALLOC_PTR); 
: 291 98 RETURN SS$_NORMAT; 
: 2914 2983 2 
3; 2915 2984 1 END; ! End of routine SMG$$SET_PROMPT_STRING 


OOFC 00000 SMGS$$SET_PROMPT_STRING: 
» WORD zeve Be AS. R4A5MO A? 


SE 04 C2 0000 SUBL ; 
50 04 AC dO 0000 MOVL § PROMPT_STRING, RO : 2920 
000000006 00 16 00009 JSB LIBSANALYZE_SDESC_R2 : 
56 51 7D OO00F mova R1, STRING_CEN ; 
71 50 9 00012 BLBC ANL_STATUS; 6$ : 39 2 
6E 56 3c 0001 MOVZWL STRING_LEN, ALLOC_LEN : 2926 
6E 06 ponte INCL ALLOC_CEN : 
QOOOFFFF  8F 3 D1 OOO1A CMPL ALLOCTLEN, #65535 : 2927 
0 18 00021 BLEQU ; 
50 000000006 8F pO 909 ; MOVL #SMG$_PROTOOLON, RO : 2929 
08 BC $f BO 0002B 1$: MOVW  ALLOC_LEN, @ITEM_LIST : 2930 
D4 09 F CLRL = ALLOC“PTR > 2931 
00000050 BF 6— 01 1 MPL = ALLOC“LEN, #80 : 2938 
OF 1A 9 BGTRU 2 ; 
53 00000000' FF OF O5A REMQUE @QPS_QUEUE, ALLOC_PTR + 2941 
2 pA § 43 CLRL ALL OC PTR > 2944 
6E SA BFE O9A 0004 MOVZBL #90, ALLOC_LEN > 294 
; D 49 2$: TSTL  ALLOC_PTR > 295 
18 «1 48 BNEQ : 
52 8 aC p 4D MOVL TEN LIST, R2 : 2956 
4 Ad OF 1 PUSHAB 4(R2J : 
4 AE OF 4 PUSHAB ALLOC LEN ; 
000000006 9 FB 7 CALLS #2, LYBSGET yn : 
E BLBC =:VM sTATUs. 3 : 2957 
04 A bO 6 MOVL 4(R2), ALLOC_PTR ; 360 
0 8 AC 7D 00065 38: MOVO ITEM_LIST, RO : 297 


Sngt pet 
-01 SMGSSSET_PROMPT_STRING 
04 
6 
$y 
6 


; Routine Size: 135 bytes, 
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9 SMGRTL.SRCJSMGINPUT.B32; 1 
LLOC_PTR, 4 (RO) 

$ 

13, (ALLOC_PTR) + 

1, $T RING LEN 

1, @PR ENBOFFER. LOC PTR) 

TRING. CEN. Ek TRY, (ALLOC_PTR) 
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—— (,ITEM_LIST CO, I1TMSL_BUFADR], QPS_QUEUE) 
LIBSFREE_VM (ALLOC_LEN, ITEM_LIST CO,1TMSL_BUFADR)); 
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smote SHGSSDELETE PROMPT. STRING. ; 12-8 08- 1 3b 9 $3:99 SMGRTL.SRCJSMGINPUT.B32;1 

: 2917 985 1 XSBITL "SMGSSDELETE_PROMPT_STRING' : 
; aig 9 § 1 ROUTINE SMGSSDELETE_PROMPT_STRING ( ; 
; 291 9 1 ITEM_LIST: REF SITMLST_DECL (ITEMS=1) ! Prompt string item List . 
: 3 » +4 ): NOVALUE = : 
: 29 é 990 1 !+4 ; 
; 2 ? 44 } FUNCTIONAL DESCRIPTION: : 
; : 2 $35 : } This procedure deletes a prompt string, if any. 
i $907 999 1 | CALLING SEQUENCE: 
; 3 4 997 1 | SMGSSDELETE_PROMPT_STRING (item_List.rr.r) : 
; 931 999 | FORMAL PARAMETERS: 
: 2338 it : ITEM_LIST The Q10 item-List entry for the prompt string. 
: $935 QOS 1 | IMPLICIT INPUTS: : 
ae Saar oom : 
; 939 007 | IMPLICIT OUTPUTS: 
: 341 909 1 | QPS_QUEUE : 
: 3348 oi ! COMPLETION STATUS: 
Po | : 
; g747 O15 | SIDE EFFECTS: ; 
+ 2949 017 1! Either inserts string on queue of prompt-strings or deallocates ; 
: get Bie ’ the string. ; 
; 93¢ 020 1 i-- 3 
: 295 os! 1 : 
3 2954 0 ¢ BEGIN 3 
; 2955 Bs 3 
5 es 024 LOCAL : 
3; 295 025 ALLOC_LEN; 3 
: 2958 026 3 
: 2959 027 BUILTIN 3 
; 2960 8 3 INSQUE; 3 
3; 2961 : 
3 308 030 '¢ : 
: 296 0 ' If the string length is LEQ K_QPS_SIZE, insert it on the queue 3 
; 0 as the allocated length is guaranteed to be at least K_QP “Size. : 
; ALLOC_LEN = .ITEM_LIST CO,1TM$W_BUFSIZ); : 
: 0 IF .ACLOC_LEN LEQO K_QPS_ SIZE : 


VVVVSSSSSy 
ESR E aS 2s Ss 
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MGSINPUT Screen Management Facility Input Procedures 
ete SMGSSDELET TE PROMPT ST TRING. si mie 
3: 2974 4 RETURN; 
ro 
976 44 1 END; 
0000 
7E 06 Bc 3C 
50 04 aC 00 
QOO0005A = BF 6E— 01 
09 #1A 
00000000" EF 046 #@B0 oF 
04 AO OF 
04 A oF 
000000006 00 0 fe 


; Routine Size: 42 bytes, Routine Base: 


. 7 
16-Sep-1984 43:07 AX-11 Bliss-32 V 
ersepn sees POiGaes «=| FaNGAT Ok legcs2 ys. 0- 


! End of routine SMGSSDELETE_PROMPT_STRING 


00000 SMGS$S$DELETE Spe HO aeeeet 


.WOR S thing 
00002 MOVZWL BITEM. tist, gAteoc _LEN 
0006 MOVL ITEM_CIS 
OO0A CMPL ALLOC LEN, Ro 
0011 BGTRU 
o00t3 INSQUE @4(RO), QPS_QUEUE 
001B RET 
QOO1C 1$: PUSHAB 4(RO) 
0001F PUSHAB ALLoc LEN 
o00¢e CALLS #2, LIBSFREE_VM 
00029 RET 


_SMGSCODE + OF7B 


7.83821 


Page 78 


(10) 
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smote SHGSSINIT QUEUES pps > cate 18-Sep-1984 Ae ee Ce tata ea Page 
297 ZSBITL_ *SMGSSINIT_QUEUES' 
97 ROUTINE SMGSSINIT_QUEUES 


lee 
FUNCTIONAL DESCRIPTION: 


This procedure initializes KCB_QUEUE and QPS_QUEUE, and declares 
an exit handler. 


| 
: 
| CALLING SEQUENCE: 
i ret_status.wic.v = SMGSSINIT_QUEUES () 
i FORMAL PARAMETERS: 

NONE 


4 
995 p66 ; 
338 0 ! IMPLICIT INPUTS: 
99 064 ; 
998 06 V_ QUEUE _INIT 
999 066 k0B_QuEDE 
000 067 QPS _QUEUE 


S 
= 
o 
o 
co 


Sossssesssss 
LALA. A. AAAI ANAM AAW 
a COCO COCOOOCOOOOCOOoOoOoOoOoOoO 
COnno NNN NNNNN oa 
—OOONOUS = uw 
POPOPOPIPOPOPONOPOMONIPUNININDY — 9 tt tt a tt 


i IMPLICIT OUTPUTS: 


V_QUEUVE_INIT set to 1 
KGB_QUEDE initialized as an empty queue 
QPS_QUEUVE initialized as an empty queue 


S388 
oO 


i COMPLETION STATUS: 


SS$_NORMAL Normal successful completion 
Errors from LIBSGET_VM or $DCLEXH 


i SIDE EFFECTS: 


. 
. 
2 
. 
2 
. 
. 
. 
7 
. 
a 
» 
. 
. 
. 
” 
. 
. 
o 
. 
. 
. 
oO 
. 
. 
. 
. 
e 
. 
a 
° 
. 
. 
. 
- 
o 
. 
. 
. 
a 
- 
e 
. 
& 
. 
a 
. 
© 
. 
° 
. 
. 
. 
. 
. 
oe 
. 
o 
- 
. 
. 
o 
7 
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‘+ 
} Assume that we don't have to enable the exit handler. 


3s 


7 
8 
9 
010 
i 
iE 
Bie 6 Declares SMGSSINPUT_EXIT_HANDLER as an exit handler 
O17 4 ine 
018 85 
019 86 BEGIN 
020 87 
021 88 OCAL 
0 : AST_STATUS, 
0 90 vm_ STATUS 
024 091 V_ENABLE_EXITH, ! Set to 1 if exit handler should be enabled 
025 09 ERIT BLOCK: REF VECTOR C4, LONG], ' Exit handler block | 
026 9 EB_PTR; ! Pointer to allocated memory 
027 094 
028 95 BUILTIN 
029 9 TESTBITCS; 
030 
9 1 
0 
0 


pst 


1+ 
Remember that we want to declare the exit handler. 


SESS. 


& 


V_ENABLE_EXITH = 1; 
END; 


‘+ 
Reenable ASTs if previously enabled. 


H 7 
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ath SHGSSINIT QUEUES 12-808 -1 3b 90:69:49 UOMGRTL. SRCISMGINPUT .B3 31 Page 99 
5 1 V_ENABLE_EXITH = 0; 
: m 
3 ! Disable ASTs 
940 1 é 
bes ! AST_STATUS = $SSETAST (ENBFLG=0); 
O28 : r 
Bee : :_ If V.QUEUVE_INIT still clear, initialize the queue. 
04 1 
ae? : — (V_QUEUVE_INIT) 
049 1 BEGIN 
050 1 
051 1 '+ 
O26 : Initialize KQB_QUEUE to be an empty queue. 
054 1 ; 
055 1 KQB_QUEUE £0} = KQB_QUEUE; ' Set forward Link 
B28 : KQB_QUEVE [1] = KQB_QUEUE; ' Set backwards Link 
058 1 + 
623 : Initialize QPS_QUEUE to be an empty queue. 
061 1 : 
B06 1 QPS_QUEUE £92 = QPS_QUEUE; ' Set forward Link 
Ror ’ QPS_QUEUVE [1 = QPS_QUEUE; ! Set backwards Link 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


IF_ .AST_STATUS EQLU SS$_WASSET 
SSETAST (ENBFLG=1); 


ONAN NNN NN 


—SOONOUS WOO 


+ 
! If we need to enable the exit handler, do it now. It i 


SOOOOOOCCOOoCoCoo 


Ss not 
. § harmful if other AST-level operations go on while we are doing this. 
085 : 
0 IF .V_ENABLE_EXITH 
THEN 
BEGIN 


VM_STATUS = LIBSGET_VM (ZREF(20), EB_PTR); 
IF"NOT .VM_STATUS 


3 
AAAAA AWA A AAANIN AANA AAA AAA AAA AAAI AI AIANIN AAAI ANNAN ANA AWA NAIW 


PUPP Be BB BB BB EB BWANA AAI AAI NII PNPNMONPPONPONNPD 2 2 PS OS OO 


CDOCOSDO0SO 
DNA WOOO NAUE WN OOD NAUE WN SB OODNOU EWN HOOD NOME WN ODO NOU Fur 
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SINPUT Screen Management Facility Input Procedures hes Sep 4 74 AX-11 Bliss-32 V4.0-74 Pa 1 
ett SHGSSINIT QUEUES Foraa 12-808-198e 99:68: SMGRTL. SRC ISMGINPUT.B32; 1 att i 
; 309 159 THEN 
3 8 160 RETURN _ Baris: 
3 94 161 EXIT_BLOCK 
; 3095 16¢ EXITBLOCK “Gncbs input EXIT sHANDLER: ! Handler address 
3 4 16 EXIT— “BLOCK ? ument 
; 309 164 EXIT-BLOCK ae BLOCK Sr ! Address to store reason 
; 5098 165 SOCLEXH ck C8) = EXIT BLOCK C 
; 5099 198 END; 
; 3100 16 
3 13) 198 RETURN SS$_NORMAL; 
3 108 13 1 END; ! End of routine SMGS$INIT_KQB_QUEUE 


~-EXTRN SYSSSETAST, SYSSDCLEXH 


001C 00000 ren ee) R2.R3.R 


54 000000006 00 9€ 00002 MOVAB Sr SsEeA ST, RG : 
53 00000000' FF H 00009 MOV KQB sOUEUE. *R3 : 
5E 8 C2 00010 SUBL P : 
52 D4 0013 CLRL V_ENABLE_EXITH : 3102 
7E D4 0001 CLRL = : 3108 
64 01 FB 0017 CALLS #1, SYSSSETAST : 
14 10 a3 0 E OO1A BBSS #0, V_QUEUE_INIT, 1$ : 3114 
6 63 SE OOOTF MOVAB KQB_QOEUE, RQB_QUEUE F 128 
06 A’ 63 9E 00022 MOVAB KQB-QUEUE, KQB_QUEUE+4 3 31 
08 a3 08 a3 9E 00026 MOVAB QPS"QUEUE, QPS~QUEUE : 3129 
oC A 08 A H 0028 MOVAB aps “QUEUE aPps~ giVeuEss : 3130 
52 01 DO 000 9 MOVL ENABLE : 3136 
09 50 D1 00033 1$ CMPL Ast iit, : 3144 
§ 12 000 BNEQ : 
1 DD 000 PUSHL it : 3146 
64 1 FB 99 A CALLS SYSSSETAST : 
30 52 E 0030 2$ BLBC "enabee “EXITH, 3$ : 3153 
04 AE OF 9040 PUSHAB £6 P ; 3157 
04 AE 14 DO 0004 MOVL #20, 4(SP) F 
04 AE 9F 00047 PUSHAB 4 ; 
000000006 00 Q FB 004A CALLS #2, LIBSGET_VM ; 
1F E9 00051 BLBC VM_ STATUS, : 3158 
50 04 AE DO 0094 MOVL §EBTPTR, EXIT BLOCK : 3161 
04 AO O000v CF 4 0058 MOVAB SGSSINPUT EXIT giANDLER. 4(EXIT_BLOCK) 3 166 
08 Ag 01 p 905 MOVL B(EXIT BL ; 316 
ce 10 Ag E 0006 MOVAB Tatr RO), Feu oEe *BLOCK) : 3164 
50 DD 0006 PUSHL EXIT BLOCK > 3165 
000000006 90 o1 FB 069 CALLS #1, SYSSDCLEXH ; 
0 1 D0 000 ' 3$: MOVL #1. RO : 3198 
04 00073 4$: RET : 3170 


; Routine Size: 116 bytes, Routine Base: _SMGSCODE + OFAS 


The value of the RET_STATUS parameter is returned in RO. 
SIDE EFFECTS: 
Deletes the virtual keyboard. 
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SINPUT Screen Management Facility Input Procedures 1b-se =1984 00:43:07 AX-11 Bliss-32 V4.0-74 Page 82 
smote SNGSSCLEANUP ste ease 188e P8iGa:85 «| FaMGAT Obhessae Mb O"288. oe 3 
5 y ZSBTTL ‘SMGSSCLEANUP' 
ROUTINE SMGSSCLEANUP ( 
7? KCB: REF KCB_R_KCB_STRUCT, ! Keyboard control block 
8 74 RET_STATUS ' Return status 
‘ 9 ): SMGSSCLEANUPSLNK = 
i ae 
18 8 i 
14 ? ! This procedure performs all the necessary actions to delete 
1? a virtual keyboard. 
"7 § } CALLING SEQUENCE: 
19 89 ret_status.wic.v = SMGSSCLEANUP (KCB.mr.r, RET_STATUS.ric.v) 
1 89 FORMAL PARAMETERS: 
é Hy i KCB (RB) - The address of the Keyboard Control Block being 
: + deleted. 
6 3 i RET_STATUS (RO) = A status which is to be returned by 
i 37 SMGSSCLEANUP. 
9 95 i IMPLICIT INPUTS: 
0 96 ‘ 
1 NONE 
; 3 IMPLICIT OUTPUTS: 
5 1 NONE 
7 5 i COMPLETION STATUS: 
8 4 ' 
9 ! 
0 ! 
3 
: 
5 '- 
6 
7 
8 
9 


PIPPIN PIMP IPINIPIPIM IN INI a at st tk hk hh hh th tt 


‘ 
8 
9 
0 
1 
5 BEGIN 
5 LOCAL 
3 § KQB: REF KQB_R_KQB_STRUCT; ! Keyboard Queue Block 
26 8 BUILTIN 
5 CALLG; 
54 0 
55 1 '¢ 
3 § Remove this KCB from the List of KCBs. 
7 ! 
35 5 KQB = .KCB CkeB_A.KOBI; ! Get Keyboard Queue Block pointer 
i Bie de: 


se 
FUNCTIONAL DESCRIPTION: 
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smo SMGSSCLEANUP J 12-808 - 1382 90:68:05 SMGRTL.SRCJSMGINPUT.B32;1 age 453 


_ 
oO 


KQB CKQB_A_KCB] = 0; 
te 
Split for RMS vs. $010 


IF .KCB CKCB_V_RMS) 
THEN 


FAB: SFAB_DECL; 


14 
Set up new FAB from saved IFl. 


SFAB_INIT (FAS=FAB); 
FAB CFABSW_IFI] = KCB CKCB_W_IFI); 
+ 
Close file if opened. 
hi CFABSW_IFI] NEQ 0 
SCLOSE (FAB=FAB); 
1+ 
Deallocate record buffer if allocated. 
IF .KCB CRABSL_UBF] NEQA 0 
LIBSFREE_VM (ZREF(.KCB CRABSW_USZ]), KCB CRABSL_UBFJ); 
END 
BEGIN 
} 
| 


ELSE 


PIII tn td td td ed 


Sas URTNAS SEAR ENS SES LE SPAR LESE AERP ORAS LaF A NII SSE LS OFS 


BIND 
DEVDEPEND2 = KCB CKCB_L_DEVDEPEND2): BLOCK (4, BYTE); 


+ 
! If we have changed the terminal characteristics and keypad, 
restore them. 


WR =O OONOAOUE WN (OO ONOAUE WN (OO OONAUNE WN CO ODNOULS WOOO 


PN BPA Ae ST A Se ee ee 2 et TR I AS 


IF .KCB CKCB_V_CHARS_CHANGED) 
THEN 
BEGIN 


4 
Restore old DEVDEPEND2 information. 


Be Be Se Se Be Be Ge Se Se Be Ge Se Se Se Fe Ge FH Se Se Be Se Se Se SH Ge THe Ge Se Se Os Be Se Se Se Ss Oe OF Os Be Be Oe Oe Se Ses Oe Se Se Se See Se Se Se eee 


POMSPOPOPSPOPYPoPoforny 
~~ 
NOu 
PERSE ES FWA NINN IOI 


KCB CKCB_L_DEVDEPEND2) = .KCB CKCB_L_OLD_DEVDEPEND2); 


eae 


1 


MO OBNAVESWN (OC OONAUESWN 0 OONOUSWNO” 


0050 


8F 


A PIPIPIPPIPNININIMNINININININPINININIWINIWAE JIN BP PEE 


n Mana 
CLEANU 


00 


genent Facility Input Procedures 


1Soseo-19R6 90:45:07 yaKett 8 


'¢ 
‘ Reset keypad mode. 


SMGSSET_KEYPAD_MODE (ZREF (KCB CKCB_R_KCB)), 
ams ZREFC. DEVDEPEND2 wait th APP TKEVPRD )); 


14 
Deassign channel if assigned. 

IF .KCB CKCB_W CHANNEL) NEQ 0 

. SDASSGN (CHAN = .KCB CKCB_W_CHANNEL)); 


+ 
Free event flag if allocated. 


IF 


gkCB CKCB_L_EFN] NEO 0 
LIBSFREE_EF (KCB CKCB_L_EFNJ); 


1+ 
Deallocate KCB. 


LIBSFREE_VM (XREF (KCB_S_KCB_STRUCT), 


RETURN .RET_STATUS; 


see 


MREF (.KCB = KCB_K_ORIGIN_OFFSET)); 


=32 V4.0-7 
SMGINPUT.63 31 


! End of routine SMG$$CLEANUP 


-EXTRN SYSSCLOSE, SYSSDASSGN 


OOFC 00000 SMGSSCLEANUP: 
WORD 


WO Save R2,R3,R4,R5,R6,R7 
57 000000006 00 9€ 00002 MOVAB LIBSEREE_ VM, R7 
3E Ag A 9 0009 MOVAB =88(SP),- SP 
2 D8 AB OD itt MOVL =46(KCB), KQB 
03 1 0014 BEQL 1 
08 Ad D4 1 CLRL = 8(KQB) 
40 FC OA 59 019 1$: BLBC -4(KCB), 3$ 
6 00 C O10 MOVCS #0, (SPS, #0, #80, $RMS_PTR 
08 AE 5008 F 8 6 MOVW #20483, SANs PIR 
1 AE 02C MOVB = #2, $RMS Rte? 
27, =A 0 MOVB srs Pine 
5 D4 OA MOVAB =44(KCB 
OA AE 5 6 MOV R0. Abed 
OA C BEQL 
08 AE 9F O003E PUSHAB FAB 


Pane 18} 
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at SNGSSCLEANUP ’ ergeet8Be 98:G5:2e — PaMGAT Ob deg se bce" 288 oe 8 
000000006 00 01 F 4 CALLS #1, SYSSCLOSE : 
24 ; 6 48 2$: TS 7 g (K¢B) : 3259 
4 AB OF 0004 PUSHAB 36(KCB) + 3261 
08 AE 20 A 3 MOVZWL 3 tree) 8(SP) : 
AE OF PUSH (SP} : 
67 re CALLS #2, LIBSFREE_VM : 
1 B BRB 5 3 3234 
18 FC OA E1 3$ BBC #2, -4(KCB), 4$ + 3275 
Fe OA 4 AB DO 6 MOVL =28(KCB), -12(KCB) + 3283 
04 AE Fo AB 07 0 FF EXTZV. #7, #1, -10(KCB), 4(SP) + 3290 
04 AF F 0 6 PUSHAB 4(S5P : 
04 AE 58 00 OVL KCB, 4(SP) + 3289 
04 AE 9F 0007 PUSHAB 4(SP) : 
FOOF CF 02 F 0 7 CALLS #2, SMGSSET_KEYPAD_MODE : 
D4 «AS B 7D 4$: TSTW = =44(K CB) : 3297 
0B 13 0008 BEQL : 
7E D4 AB 32 000 CVTWL  =44(KCB), -(SP) : 3299 
000000006 00 01 F 99 CALLS #1, SYSSDASSGN ; 
DO §=6AB =«—S 00080 5S: TSTL =48(KCB) + 3306 
0A 13 0009 BEQL 6$ ; 
DO AB 9F 0009 PUSHAB -48(KCB) + 3308 
000000006 00 01 FB 0009 CALLS #1, LIBSFREE_EF ; 
04 AE DO AB YE 0009C 6$: MOVAB =48(RB8), 4(SP) + 3314 
04 AE 9F OOOAI PUSHAB 4(SP : 
04 AE E2 BF 9A OOOA4 MOVZBL #226, 4(SP) ; 
4 AE 9F OO0A9 PUSHAB 4(SP5 : 
67 02 FB OOOAC CALLS #2, LIBSFREE_VM : 
50 56 DO OOOAF MOVL  RET_STATUS, RO : 3316 
04 00082 RET : 3318 


; Routine Size: 179 bytes, Routine Base: _SMGSCODE + 1019 
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et SNGSSINPUT. XIT_HANDLER ge ba et 1 00:68:05 SMGRTL. RCISMGINPUT .B3 31 age 4% 

H 4 1 1 ZSBITL "SMGSSINPUT_EXIT_HANDLER' $ 
; 3255 1 ROUTINE SMGSSINPUT"EXIT~HANDLER ; 
‘ $ : : NOVALUE = : 
: g : 1 !44 : 
: 26 ¢ : FUNCTIONAL DESCRIPTION: ; 
: 61 § 1! This procedure is the exit handler for the Screen Management ; 
5 o¢ 1! input procedures. It scans the List of xorezere Queue Blocks > 
; 326 gsi! looking for those which refer to existing KCBs. Those KCBs : 
: re 9 ! } are then deleted. : 
1 66 ; | CALLING SEQUENCE: : 
5 28 $ ' Called by VMS upon image exit : 
; 7 5 | FORMAL PARAMETERS: 3 
; Lf ? ! None used ; 
: 3274 33 1 ' IMPLICIT INPUTS: : 
: 3275 40 1! 3 
; 4 | rt: : KQB_ QUEUE : 
: 3 78 rk 1 ' IMPLICIT OUTPUTS: : 
: 79 44 1! é 
; 3280 45 1! V_KQB_QUEUE_INIT set to zero $ 
; 3281 8] 1! r 
3 BY 34 1 ! COMPLETION STATUS: : 
§ se 348 1! 3 
3; 3284 349 1! NONE $ 
3 $8? 3350 1! 3 
; 3286 $2) 1 ! SIDE EFFECTS: s 
; 3287 26 Bz 3 
; 3288 355 1! Deletes all existant virtual keyboards. 3 
3: 3289 354 1! 3 
3; 3290 355 1 !=- ; 
3: 3291 $29 1 3 
: 4 5 BEGIN 3 
: 3293 358 3 
3: 3294 359 LOCAL 3 
:; 3295 360 KQB: REF KQB_R_KQB_STRUCT, ' Keyboard Queue Block : 
; 38 61 KCB: REF KCB_R_KCB STRUCT ! Keyboard Control Block : 
i 3297 6¢ QUEUE_HEAD_ADR? REF VECTOR C, LONG]; =! Address of queue head ; 
: 3299 64 1+ 3 
:; 3500 65 ' Get the first KQB from the head of the queue. Note that the 3 
; i 398 queue must have already been initialized. ; 
: 336 i , 
3 04 QUEUE_HEAD ADR = KQB_Q — (0); : 
3; 3305 26 KQB = -QUEDE_HEAD_ADR HEY : 
: 7 ‘+ ; 
3 oF ae ! while we haven't returned to the head of the queue, if this KQB 3 
: $18 $e has an active KCB, delete it. : 


; Routine Size: 36 bytes, Routine Base: _SMGSCODE + 10CC 
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snes SMGSSINPUT “exit HANDLER . J 1328 08- 1382 90:68:49 SMGRTL.SR REISMEINPUT .83 B32;1 ° 8 
4 11 7 3 
: \ ig WHILE (,.KQB NEQA .QUEUVE_HEAD_ADR) DO . 
3 1 4 BEGIN 3 
: 3314 7 KCB = 5kae oGkQBAAKCBI: ‘ 
: 15 0 IF .KCB NEQA 0 : 
; 1 1 THEN 3 
; 1 § sre r Oe EKOB AT (KCB CKCB_R_KCBI, 0); ; 
; 18 KQB = KQB_A_FLINK]; ~ : 
3; 3319 4 : 3 
; 0 85 r 
: 1 a6 RETURN; : 
; § 4 END; ! End of routine SMGSS$INPUT_EXIT_HANDLER : 
010C 00000 SMGSSINPUT_EXIT opeet ea! : 
WORD ave R2,R3,R8 : 3320 ; 
53 00000000" EF 9E st mOVAB ren A a wit); _HEAD_ADR : 3369 ; 
5 63 DO 00009 MOVL (QUEUE HEAD A : 3370 ; 
5 52 01 0000C 1$ CMPL KQB, Q0EUE PAE AD. ADR 3 3377 5 
12 13 0000F BEQL $ : 
58 08 Ag 0 Boot) MOVL gckOe), KCB : 33 =) 3 
9 13 00015 BEQL $ : 3380 : 
0 D4 44 BEA CLRL RO ; 3382 $ 
FF2F CF 00 FB 00019 CALLS #0, SMGSSCLEANUP 3 ; 
52 62 DO OOO1E 2$ MOVL (kaB), KQB > 3383 ; 
E 11 00021 BRB 1$ : $3a5 3 
04 00023 3$ RET ; 3388 ; 


eer ieut Sc 
2-01 SM 


en pe 


i 
——— 


+4 POT eT Facility Input Procedures 16- 
SINPUT_EXIT_HANDLER 1 
! 


! En 


4 00:43:07: VAX-11.B Page 88 
tes rR te cet aR BE el 396 4a) 


. 
Se 
Se 
d of module SMGS$INPUT 


PSECT SUMMARY 


Name Bytes Attributes 
_SMGSDATA Q NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Pig eMe Enis? 
“SMGS$CODE 4336 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


eee ataial Syuholg seoceses Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$0UA28: parol 1B IST AGL GT +L ses 9776 164 1 581 00:01.1 
“$255$DUA28: he RTL.OBJIRTLLIB.L32;1 36 4 11 8 00:00.1 
“$255$DUA28: SMGRTL OBJISMBLIB-L3521 469 146 31 38 00:00.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/NOTRACE/LIS=LIS$:SMGINPUT/OBJ=OBJ$:SMGINPUT MSRC$:SMGINPUT/UPDATE=(ENHS$: SMGINPUT) 


; ptze: 4223 code + 133 data bytes 
un Time 1 74 3 


pre Time: 05:12.7 
Lines/CPU Min: 215 
Lexemes/CPU-Min: 21145 
Memory Used: 569 pages 
Compiration Complete 


EQUIPMENT CORPORATION 


AH-BT13A-SE 
NTIAL_AND PROPRIETARY 
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